[Home] [Help]
80: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
81: --
82: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
83: IF l_debug_on IS NULL THEN
84: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
85: END IF;
86: --
87: IF l_debug_on THEN
88: WSH_DEBUG_SV.push(l_module_name);
84: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
85: END IF;
86: --
87: IF l_debug_on THEN
88: WSH_DEBUG_SV.push(l_module_name);
89: WSH_DEBUG_SV.log(l_module_name, 'p_party_id', p_party_id);
90: WSH_DEBUG_SV.log(l_module_name, 'p_party_site_id', p_party_site_id);
91: WSH_DEBUG_SV.log(l_module_name, 'p_process_locations', p_process_locations);
92: WSH_DEBUG_SV.log(l_module_name, 'p_to_id', p_to_id);
85: END IF;
86: --
87: IF l_debug_on THEN
88: WSH_DEBUG_SV.push(l_module_name);
89: WSH_DEBUG_SV.log(l_module_name, 'p_party_id', p_party_id);
90: WSH_DEBUG_SV.log(l_module_name, 'p_party_site_id', p_party_site_id);
91: WSH_DEBUG_SV.log(l_module_name, 'p_process_locations', p_process_locations);
92: WSH_DEBUG_SV.log(l_module_name, 'p_to_id', p_to_id);
93: WSH_DEBUG_SV.log(l_module_name, 'p_to_vendor_id', p_to_vendor_id);
86: --
87: IF l_debug_on THEN
88: WSH_DEBUG_SV.push(l_module_name);
89: WSH_DEBUG_SV.log(l_module_name, 'p_party_id', p_party_id);
90: WSH_DEBUG_SV.log(l_module_name, 'p_party_site_id', p_party_site_id);
91: WSH_DEBUG_SV.log(l_module_name, 'p_process_locations', p_process_locations);
92: WSH_DEBUG_SV.log(l_module_name, 'p_to_id', p_to_id);
93: WSH_DEBUG_SV.log(l_module_name, 'p_to_vendor_id', p_to_vendor_id);
94: END IF;
87: IF l_debug_on THEN
88: WSH_DEBUG_SV.push(l_module_name);
89: WSH_DEBUG_SV.log(l_module_name, 'p_party_id', p_party_id);
90: WSH_DEBUG_SV.log(l_module_name, 'p_party_site_id', p_party_site_id);
91: WSH_DEBUG_SV.log(l_module_name, 'p_process_locations', p_process_locations);
92: WSH_DEBUG_SV.log(l_module_name, 'p_to_id', p_to_id);
93: WSH_DEBUG_SV.log(l_module_name, 'p_to_vendor_id', p_to_vendor_id);
94: END IF;
95: --
88: WSH_DEBUG_SV.push(l_module_name);
89: WSH_DEBUG_SV.log(l_module_name, 'p_party_id', p_party_id);
90: WSH_DEBUG_SV.log(l_module_name, 'p_party_site_id', p_party_site_id);
91: WSH_DEBUG_SV.log(l_module_name, 'p_process_locations', p_process_locations);
92: WSH_DEBUG_SV.log(l_module_name, 'p_to_id', p_to_id);
93: WSH_DEBUG_SV.log(l_module_name, 'p_to_vendor_id', p_to_vendor_id);
94: END IF;
95: --
96: FOR get_party_site_rec IN get_party_site_csr(p_party_id => p_party_id,
89: WSH_DEBUG_SV.log(l_module_name, 'p_party_id', p_party_id);
90: WSH_DEBUG_SV.log(l_module_name, 'p_party_site_id', p_party_site_id);
91: WSH_DEBUG_SV.log(l_module_name, 'p_process_locations', p_process_locations);
92: WSH_DEBUG_SV.log(l_module_name, 'p_to_id', p_to_id);
93: WSH_DEBUG_SV.log(l_module_name, 'p_to_vendor_id', p_to_vendor_id);
94: END IF;
95: --
96: FOR get_party_site_rec IN get_party_site_csr(p_party_id => p_party_id,
97: p_site_id => p_party_site_id)
98: LOOP
99: --{
100: IF l_debug_on THEN
101: --
102: WSH_DEBUG_SV.logmsg(l_module_name, '----------------', WSH_DEBUG_SV.C_STMT_LEVEL);
103: WSH_DEBUG_SV.log(l_module_name,'LOCATION_ID' , get_party_site_rec.location_id);
104: WSH_DEBUG_SV.log(l_module_name,'PARTY_SITE_ID', get_party_site_rec.party_site_id);
105: WSH_DEBUG_SV.log(l_module_name,'OBJECT_VERSION_NUMBER', get_party_site_rec.object_version_number);
106: --
99: --{
100: IF l_debug_on THEN
101: --
102: WSH_DEBUG_SV.logmsg(l_module_name, '----------------', WSH_DEBUG_SV.C_STMT_LEVEL);
103: WSH_DEBUG_SV.log(l_module_name,'LOCATION_ID' , get_party_site_rec.location_id);
104: WSH_DEBUG_SV.log(l_module_name,'PARTY_SITE_ID', get_party_site_rec.party_site_id);
105: WSH_DEBUG_SV.log(l_module_name,'OBJECT_VERSION_NUMBER', get_party_site_rec.object_version_number);
106: --
107: END IF;
100: IF l_debug_on THEN
101: --
102: WSH_DEBUG_SV.logmsg(l_module_name, '----------------', WSH_DEBUG_SV.C_STMT_LEVEL);
103: WSH_DEBUG_SV.log(l_module_name,'LOCATION_ID' , get_party_site_rec.location_id);
104: WSH_DEBUG_SV.log(l_module_name,'PARTY_SITE_ID', get_party_site_rec.party_site_id);
105: WSH_DEBUG_SV.log(l_module_name,'OBJECT_VERSION_NUMBER', get_party_site_rec.object_version_number);
106: --
107: END IF;
108: --
101: --
102: WSH_DEBUG_SV.logmsg(l_module_name, '----------------', WSH_DEBUG_SV.C_STMT_LEVEL);
103: WSH_DEBUG_SV.log(l_module_name,'LOCATION_ID' , get_party_site_rec.location_id);
104: WSH_DEBUG_SV.log(l_module_name,'PARTY_SITE_ID', get_party_site_rec.party_site_id);
105: WSH_DEBUG_SV.log(l_module_name,'OBJECT_VERSION_NUMBER', get_party_site_rec.object_version_number);
106: --
107: END IF;
108: --
109: -- Check if we have any deliveries tied to the
129: l_query_count := 0;
130: END;
131: --
132: IF l_debug_on THEN
133: WSH_DEBUG_SV.log(l_module_name,'L_QUERY_COUNT', l_query_count);
134: END IF;
135: --
136: IF l_query_count = 0 AND p_party_site_id IS NOT NULL THEN
137: --{
141: l_object_version_number := get_party_site_rec.object_version_number;
142: l_from_party_rec.status := 'I' ;
143: --
144: IF l_debug_on THEN
145: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_PARTY_SITE_V2PUB.UPDATE_PARTY_SITE_USE',WSH_DEBUG_SV.C_PROC_LEVEL);
146: END IF;
147: --
148: hz_party_site_v2pub.update_party_site
149: (
154: x_msg_data => l_msg
155: );
156: --
157: IF l_debug_on THEN
158: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from HZ_PARTY_SITE_V2PUB.UPDATE_PARTY_SITE is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
159: END IF;
160: --
161: wsh_util_core.api_post_call
162: (
168: --
169: IF p_process_locations THEN
170: --{
171: IF l_debug_on THEN
172: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling Process_Location API', WSH_DEBUG_SV.C_PROC_LEVEL);
173: END IF;
174: --
175: WSH_LOCATIONS_PKG.Process_Locations
176: (
185: x_sqlerr => l_sql_err
186: );
187: --
188: IF l_debug_on THEN
189: WSH_DEBUG_SV.logmsg(l_module_name, 'After Process_Location API', WSH_DEBUG_SV.C_PROC_LEVEL);
190: WSH_DEBUG_SV.log(l_module_name, 'l_sql_code', l_sql_code);
191: WSH_DEBUG_SV.log(l_module_name, 'l_sql_err', l_sql_err);
192: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
193: END IF;
186: );
187: --
188: IF l_debug_on THEN
189: WSH_DEBUG_SV.logmsg(l_module_name, 'After Process_Location API', WSH_DEBUG_SV.C_PROC_LEVEL);
190: WSH_DEBUG_SV.log(l_module_name, 'l_sql_code', l_sql_code);
191: WSH_DEBUG_SV.log(l_module_name, 'l_sql_err', l_sql_err);
192: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
193: END IF;
194: --
187: --
188: IF l_debug_on THEN
189: WSH_DEBUG_SV.logmsg(l_module_name, 'After Process_Location API', WSH_DEBUG_SV.C_PROC_LEVEL);
190: WSH_DEBUG_SV.log(l_module_name, 'l_sql_code', l_sql_code);
191: WSH_DEBUG_SV.log(l_module_name, 'l_sql_err', l_sql_err);
192: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
193: END IF;
194: --
195: WSH_UTIL_CORE.api_post_call
188: IF l_debug_on THEN
189: WSH_DEBUG_SV.logmsg(l_module_name, 'After Process_Location API', WSH_DEBUG_SV.C_PROC_LEVEL);
190: WSH_DEBUG_SV.log(l_module_name, 'l_sql_code', l_sql_code);
191: WSH_DEBUG_SV.log(l_module_name, 'l_sql_err', l_sql_err);
192: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
193: END IF;
194: --
195: WSH_UTIL_CORE.api_post_call
196: (
203: --}
204: ELSIF l_query_count = 0 THEN
205: --{
206: IF l_debug_on THEN
207: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling Create_Site', WSH_DEBUG_SV.C_PROC_LEVEL);
208: END IF;
209: --
210: Create_Site
211: (
218: x_return_Status => l_return_status
219: );
220: --
221: IF l_debug_on THEN
222: WSH_DEBUG_SV.logmsg(l_module_name, 'After calling create_Site', WSH_DEBUG_SV.C_PROC_LEVEL);
223: WSH_DEBUG_SV.log(l_module_name, 'Return Status', l_return_status);
224: END IF;
225: --
226: WSH_UTIL_CORE.api_post_call
219: );
220: --
221: IF l_debug_on THEN
222: WSH_DEBUG_SV.logmsg(l_module_name, 'After calling create_Site', WSH_DEBUG_SV.C_PROC_LEVEL);
223: WSH_DEBUG_SV.log(l_module_name, 'Return Status', l_return_status);
224: END IF;
225: --
226: WSH_UTIL_CORE.api_post_call
227: (
244: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
245: END IF;
246: --
247: IF l_debug_on THEN
248: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
249: WSH_DEBUG_SV.pop(l_module_name);
250: END IF;
251: --}
252: EXCEPTION
245: END IF;
246: --
247: IF l_debug_on THEN
248: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
249: WSH_DEBUG_SV.pop(l_module_name);
250: END IF;
251: --}
252: EXCEPTION
253: --
256: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
257: --
258: IF l_debug_on THEN
259: --
260: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
261: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
262: --
263: END IF;
264: --
257: --
258: IF l_debug_on THEN
259: --
260: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
261: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
262: --
263: END IF;
264: --
265: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
267: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
268: --
269: IF l_debug_on THEN
270: --
271: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
272: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
273: --
274: END IF;
275: --
268: --
269: IF l_debug_on THEN
270: --
271: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
272: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
273: --
274: END IF;
275: --
276: WHEN OTHERS THEN
279: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.InactivatePartySites');
280: --
281: IF l_debug_on THEN
282: --
283: WSH_DEBUG_SV.log(l_module_name,'Unexpected error has occured. Oracle error message is ', SUBSTRB(SQLERRM,1,200));
284: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
285: --
286: END IF;
287: --
280: --
281: IF l_debug_on THEN
282: --
283: WSH_DEBUG_SV.log(l_module_name,'Unexpected error has occured. Oracle error message is ', SUBSTRB(SQLERRM,1,200));
284: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
285: --
286: END IF;
287: --
288: END InactivatePartySites;
417: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
418: --
419: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
420: IF l_debug_on IS NULL THEN
421: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
422: END IF;
423: --
424: IF l_debug_on THEN
425: --
422: END IF;
423: --
424: IF l_debug_on THEN
425: --
426: WSH_DEBUG_SV.push(l_module_name);
427: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
428: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
429: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
430: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_NAME', p_delivery_name );
423: --
424: IF l_debug_on THEN
425: --
426: WSH_DEBUG_SV.push(l_module_name);
427: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
428: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
429: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
430: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_NAME', p_delivery_name );
431: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
424: IF l_debug_on THEN
425: --
426: WSH_DEBUG_SV.push(l_module_name);
427: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
428: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
429: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
430: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_NAME', p_delivery_name );
431: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
432: --
425: --
426: WSH_DEBUG_SV.push(l_module_name);
427: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
428: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
429: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
430: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_NAME', p_delivery_name );
431: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
432: --
433: END IF;
426: WSH_DEBUG_SV.push(l_module_name);
427: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
428: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
429: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
430: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_NAME', p_delivery_name );
431: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
432: --
433: END IF;
434: --
427: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
428: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
429: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
430: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_NAME', p_delivery_name );
431: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
432: --
433: END IF;
434: --
435: l_dummy := NULL;
437: FETCH check_location_id INTO l_dummy, l_partySiteId;
438: CLOSE check_location_id;
439: --
440: IF l_debug_on THEN
441: WSH_DEBUG_SV.log(l_module_name, 'l_dummy', l_dummy);
442: WSH_DEBUG_SV.log(l_module_name, 'l_partySiteId', l_partySiteId);
443: END IF;
444: --
445: IF l_dummy IS NOT NULL THEN
438: CLOSE check_location_id;
439: --
440: IF l_debug_on THEN
441: WSH_DEBUG_SV.log(l_module_name, 'l_dummy', l_dummy);
442: WSH_DEBUG_SV.log(l_module_name, 'l_partySiteId', l_partySiteId);
443: END IF;
444: --
445: IF l_dummy IS NOT NULL THEN
446: --{
446: --{
447: IF p_from_id <> p_to_id THEN
448: --{
449: IF l_debug_on THEN
450: wsh_debug_sv.logmsg(l_module_name, 'Calling InactivatePartySites', WSH_DEBUG_SV.C_PROC_LEVEL);
451: END IF;
452: --
453: InactivatePartySites
454: (
460: x_return_status => l_return_status
461: );
462: --
463: IF l_debug_on THEN
464: wsh_debug_sv.log(l_module_name, 'Return Status from inactivatePartySites', l_return_status);
465: END IF;
466: --
467: WSH_UTIL_CORE.api_post_call
468: (
479: --{
480: IF g_LocChangeTab(i).location_id = p_location_id THEN
481: --{
482: IF l_debug_on THEN
483: WSH_DEBUG_SV.logmsg(l_module_name, 'Logging SF code change exception');
484: END IF;
485: --
486: fnd_message.set_name ( 'WSH', 'WSH_IB_SF_LOCN_CODE_CHG');
487: fnd_message.set_token( 'L_LOCATION_CODE' , g_LocChangeTab(i).old_loc_code);
490: l_msg := FND_MESSAGE.GET;
491: WSH_UTIL_CORE.printMsg(l_msg);
492: --
493: IF l_debug_on THEN
494: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
495: END IF;
496: --
497: wsh_xc_util.log_exception (
498: p_api_version => 1.0,
509: p_logged_at_location_id => p_location_id
510: );
511: --
512: IF l_debug_on THEN
513: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_XC_UTIL.LOG_EXCEPTION is ', l_return_status);
514: END IF;
515: --
516: wsh_util_core.api_post_call(
517: p_return_status => l_return_status,
528: --}
529: END IF;
530: --
531: IF l_debug_on THEN
532: WSH_DEBUG_SV.pop(l_module_name);
533: END IF;
534: --
535: RETURN;
536: --}
541: CLOSE check_location_code;
542: --
543: IF l_debug_on THEN
544: --
545: WSH_DEBUG_SV.log(l_module_name,'cursor check_location_code : L_LOCATION_CODE', l_location_code);
546: WSH_DEBUG_SV.log(l_module_name,'cursor check_location_code : L_FROM_PARTY_SITE_ID ', l_from_party_site_id);
547: --
548: END IF;
549: --
542: --
543: IF l_debug_on THEN
544: --
545: WSH_DEBUG_SV.log(l_module_name,'cursor check_location_code : L_LOCATION_CODE', l_location_code);
546: WSH_DEBUG_SV.log(l_module_name,'cursor check_location_code : L_FROM_PARTY_SITE_ID ', l_from_party_site_id);
547: --
548: END IF;
549: --
550: OPEN get_contact_info(p_party_id => p_from_id,
553: CLOSE get_contact_info;
554: --
555: IF l_debug_on THEN
556: --
557: WSH_DEBUG_SV.log(l_module_name,'cursor get_contact_info : L_CONTACT_REC.SHIPPER_NAME', l_contact_rec.shipper_name);
558: WSH_DEBUG_SV.log(l_module_name,'cursor get_contact_info : L_CONTACT_REC.PHONE_NUMBER', l_contact_rec.phone_number);
559: WSH_DEBUG_SV.log(l_module_name,'cursor get_contact_info : L_CONTACT_REC.EMAIL_ADDRESS',l_contact_rec.email_address);
560: --
561: END IF;
554: --
555: IF l_debug_on THEN
556: --
557: WSH_DEBUG_SV.log(l_module_name,'cursor get_contact_info : L_CONTACT_REC.SHIPPER_NAME', l_contact_rec.shipper_name);
558: WSH_DEBUG_SV.log(l_module_name,'cursor get_contact_info : L_CONTACT_REC.PHONE_NUMBER', l_contact_rec.phone_number);
559: WSH_DEBUG_SV.log(l_module_name,'cursor get_contact_info : L_CONTACT_REC.EMAIL_ADDRESS',l_contact_rec.email_address);
560: --
561: END IF;
562: --
555: IF l_debug_on THEN
556: --
557: WSH_DEBUG_SV.log(l_module_name,'cursor get_contact_info : L_CONTACT_REC.SHIPPER_NAME', l_contact_rec.shipper_name);
558: WSH_DEBUG_SV.log(l_module_name,'cursor get_contact_info : L_CONTACT_REC.PHONE_NUMBER', l_contact_rec.phone_number);
559: WSH_DEBUG_SV.log(l_module_name,'cursor get_contact_info : L_CONTACT_REC.EMAIL_ADDRESS',l_contact_rec.email_address);
560: --
561: END IF;
562: --
563: l_site_number := l_location_code || '|' || p_to_id;
562: --
563: l_site_number := l_location_code || '|' || p_to_id;
564: --
565: IF l_debug_on THEN
566: WSH_DEBUG_SV.log(l_module_name,'L_SITE_NUMBER', l_site_number);
567: END IF;
568: --
569: -- Check if we have an entry in hz_party_sites with the same
570: -- party_site_number and merge TO vendor ID
574: FETCH chk_locn_csr INTO l_dummy;
575: CLOSE chk_locn_csr;
576: --
577: IF l_debug_on THEN
578: wsh_debug_sv.log(l_module_name, 'After chk_loc_csr, l_dummy', l_dummy);
579: END IF;
580: --
581: IF l_dummy IS NOT NULL THEN
582: --{
580: --
581: IF l_dummy IS NOT NULL THEN
582: --{
583: IF l_debug_on THEN
584: wsh_debug_sv.log(l_module_name, 'Looping to create unique SF', l_dummy);
585: END IF;
586: --
587: l_loc_chg := TRUE;
588: --
618: wsh_util_core.printMsg( l_msg );
619: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
620: --
621: IF l_debug_on THEN
622: WSH_DEBUG_SV.pop(l_module_name);
623: END IF;
624: --
625: RETURN;
626: --}
632: END IF;
633: --
634: IF l_debug_on THEN
635: --{
636: WSH_DEBUG_SV.log(l_module_name, 'l_new_location_code', l_new_location_code);
637: WSH_DEBUG_SV.log(l_module_name, 'l_loc_chg', l_loc_chg);
638: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SUPPLIER_PARTY.CREATE_HZ_PARTY_SITE',WSH_DEBUG_SV.C_PROC_LEVEL);
639: --}
640: END IF;
633: --
634: IF l_debug_on THEN
635: --{
636: WSH_DEBUG_SV.log(l_module_name, 'l_new_location_code', l_new_location_code);
637: WSH_DEBUG_SV.log(l_module_name, 'l_loc_chg', l_loc_chg);
638: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SUPPLIER_PARTY.CREATE_HZ_PARTY_SITE',WSH_DEBUG_SV.C_PROC_LEVEL);
639: --}
640: END IF;
641: --
634: IF l_debug_on THEN
635: --{
636: WSH_DEBUG_SV.log(l_module_name, 'l_new_location_code', l_new_location_code);
637: WSH_DEBUG_SV.log(l_module_name, 'l_loc_chg', l_loc_chg);
638: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SUPPLIER_PARTY.CREATE_HZ_PARTY_SITE',WSH_DEBUG_SV.C_PROC_LEVEL);
639: --}
640: END IF;
641: --
642: Wsh_supplier_party.create_hz_party_site(
648: );
649: --
650: IF l_debug_on THEN
651: --
652: WSH_DEBUG_SV.log(l_module_name, 'x_party_site_id', l_to_party_site_id);
653: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_SUPPLIER_PARTY.CREATE_HZ_PARTY_SITE is', l_return_status);
654: --
655: END IF;
656: --
649: --
650: IF l_debug_on THEN
651: --
652: WSH_DEBUG_SV.log(l_module_name, 'x_party_site_id', l_to_party_site_id);
653: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_SUPPLIER_PARTY.CREATE_HZ_PARTY_SITE is', l_return_status);
654: --
655: END IF;
656: --
657: wsh_util_core.api_post_call(
673: x_return_status => l_return_status
674: );
675: --
676: IF l_debug_on THEN
677: wsh_debug_sv.log(l_module_name, 'l_return_status', l_return_status);
678: wsh_debug_sv.log(l_module_name, 'l_party_site_use_id', l_party_site_use_id);
679: END IF;
680: --
681: wsh_util_core.api_post_call(
674: );
675: --
676: IF l_debug_on THEN
677: wsh_debug_sv.log(l_module_name, 'l_return_status', l_return_status);
678: wsh_debug_sv.log(l_module_name, 'l_party_site_use_id', l_party_site_use_id);
679: END IF;
680: --
681: wsh_util_core.api_post_call(
682: p_return_status => l_return_status,
702: --
703: -- Inactivate party site for the old vendor
704: --
705: IF l_debug_on THEN
706: wsh_debug_sv.logmsg(l_module_name, 'Calling InactivatePartySites', WSH_DEBUG_SV.C_PROC_LEVEL);
707: END IF;
708: --
709: InactivatePartySites
710: (
716: x_return_status => l_return_status
717: );
718: --
719: IF l_debug_on THEN
720: wsh_debug_sv.log(l_module_name, 'Return status from InactivatePartySite', l_return_status);
721: END IF;
722: --
723: wsh_util_core.api_post_call(
724: p_return_status => l_return_status,
726: x_num_errors => l_num_errors
727: );
728: --
729: IF l_debug_on THEN
730: wsh_debug_sv.log(l_module_name, 'l_loc_chg', l_loc_chg);
731: END IF;
732: --
733: IF l_loc_chg AND p_delivery_id IS NOT NULL THEN
734: --{
749: l_msg := FND_MESSAGE.GET;
750: WSH_UTIL_CORE.printMsg(l_msg);
751: --
752: IF l_debug_on THEN
753: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
754: END IF;
755: --
756: wsh_xc_util.log_exception (
757: p_api_version => 1.0,
768: p_logged_at_location_id => p_location_id
769: );
770: --
771: IF l_debug_on THEN
772: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_XC_UTIL.LOG_EXCEPTION is ', l_return_status);
773: END IF;
774: --
775: wsh_util_core.api_post_call(
776: p_return_status => l_return_status,
782: --}
783: END IF;
784: --
785: IF l_debug_on THEN
786: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SUPPLIER_PARTY.PROCESS_HZ_CONTACT',WSH_DEBUG_SV.C_PROC_LEVEL);
787: END IF;
788: --
789: Wsh_supplier_party.Process_HZ_contact(
790: p_party_id => p_to_id,
795: x_return_status => l_return_status
796: );
797: --
798: IF l_debug_on THEN
799: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_SUPPLIER_PARTY.PROCESS_HZ_CONTACT', l_return_status);
800: END IF;
801: --
802: wsh_util_core.api_post_call(
803: p_return_status => l_return_status,
811: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
812: END IF;
813: --
814: IF l_debug_on THEN
815: WSH_DEBUG_SV.pop(l_module_name);
816: END IF;
817: --
818: EXCEPTION
819: --
821: --
822: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
823: --
824: IF l_debug_on THEN
825: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
826: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
827: END IF;
828: --
829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
822: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
823: --
824: IF l_debug_on THEN
825: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
826: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
827: END IF;
828: --
829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
830: --
830: --
831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
832: --
833: IF l_debug_on THEN
834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
836: END IF;
837: --
838: WHEN OTHERS THEN
831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
832: --
833: IF l_debug_on THEN
834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
836: END IF;
837: --
838: WHEN OTHERS THEN
839: --
840: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
841: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Create_Site');
842: --
843: IF l_debug_on THEN
844: WSH_DEBUG_SV.log(l_module_name,'Unexpected error has occured. Oracle error message is ', SUBSTRB(SQLERRM,1,200));
845: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
846: END IF;
847: --}
848: END Create_Site;
841: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Create_Site');
842: --
843: IF l_debug_on THEN
844: WSH_DEBUG_SV.log(l_module_name,'Unexpected error has occured. Oracle error message is ', SUBSTRB(SQLERRM,1,200));
845: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
846: END IF;
847: --}
848: END Create_Site;
849: --
896: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
897: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
898: IF l_debug_on IS NULL THEN
899: --{
900: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
901: --}
902: END IF;
903:
904: --
903:
904: --
905: IF l_debug_on THEN
906: --{
907: WSH_DEBUG_SV.push(l_module_name);
908: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
909: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
910: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id );
911: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id );
904: --
905: IF l_debug_on THEN
906: --{
907: WSH_DEBUG_SV.push(l_module_name);
908: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
909: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
910: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id );
911: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id );
912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
905: IF l_debug_on THEN
906: --{
907: WSH_DEBUG_SV.push(l_module_name);
908: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
909: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
910: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id );
911: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id );
912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
913: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID', p_from_site_id );
906: --{
907: WSH_DEBUG_SV.push(l_module_name);
908: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
909: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
910: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id );
911: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id );
912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
913: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID', p_from_site_id );
914: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_ID', p_old_delivery_id );
907: WSH_DEBUG_SV.push(l_module_name);
908: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
909: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
910: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id );
911: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id );
912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
913: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID', p_from_site_id );
914: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_ID', p_old_delivery_id );
915: WSH_DEBUG_SV.log(l_module_name,'P_TEMP_UPDATE_FLAG', p_temp_update_flag );
908: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID', p_from_id );
909: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
910: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id );
911: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id );
912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
913: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID', p_from_site_id );
914: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_ID', p_old_delivery_id );
915: WSH_DEBUG_SV.log(l_module_name,'P_TEMP_UPDATE_FLAG', p_temp_update_flag );
916: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
909: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID', p_to_id );
910: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id );
911: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id );
912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
913: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID', p_from_site_id );
914: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_ID', p_old_delivery_id );
915: WSH_DEBUG_SV.log(l_module_name,'P_TEMP_UPDATE_FLAG', p_temp_update_flag );
916: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
917: --}
910: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id );
911: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id );
912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
913: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID', p_from_site_id );
914: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_ID', p_old_delivery_id );
915: WSH_DEBUG_SV.log(l_module_name,'P_TEMP_UPDATE_FLAG', p_temp_update_flag );
916: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
917: --}
918: END IF;
911: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id );
912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
913: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID', p_from_site_id );
914: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_ID', p_old_delivery_id );
915: WSH_DEBUG_SV.log(l_module_name,'P_TEMP_UPDATE_FLAG', p_temp_update_flag );
916: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
917: --}
918: END IF;
919:
912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID', p_delivery_id );
913: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID', p_from_site_id );
914: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_ID', p_old_delivery_id );
915: WSH_DEBUG_SV.log(l_module_name,'P_TEMP_UPDATE_FLAG', p_temp_update_flag );
916: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID', p_location_id );
917: --}
918: END IF;
919:
920:
929: WHERE delivery_id = p_delivery_id
930: RETURNING name INTO l_dlvy_name;
931: IF l_debug_on THEN
932: --{
933: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_new_deliveries. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
934: --}
935: END IF;
936:
937: ELSE
960: )
961: AND vendor_id = p_from_id;
962: IF l_debug_on THEN
963: --{
964: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_new_deliveries. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
965: --}
966: END IF;
967: --}
968: END IF;
984: END IF;
985:
986: IF l_debug_on THEN
987: --{
988: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_wms_sync_tmp. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
989: --}
990: END IF;
991:
992:
997: WHERE wsh_location_id = p_location_id;
998:
999: IF l_debug_on THEN
1000: --{
1001: WSH_DEBUG_SV.log(l_module_name, 'l_location_id', l_location_id);
1002: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.CREATE_SITE' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
1003: --}
1004: END IF;
1005:
998:
999: IF l_debug_on THEN
1000: --{
1001: WSH_DEBUG_SV.log(l_module_name, 'l_location_id', l_location_id);
1002: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.CREATE_SITE' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
1003: --}
1004: END IF;
1005:
1006: create_site (
1018: x_num_errors => l_num_errors
1019: );
1020: IF l_debug_on THEN
1021: --{
1022: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_VENDOR_PARTY_MERGE_PKG.CREATE_SITE is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
1023: --}
1024: END IF;
1025: --}
1026: END IF;
1033: --}
1034: END IF;
1035: --
1036: IF l_debug_on THEN
1037: WSH_DEBUG_SV.pop(l_module_name);
1038: END IF;
1039:
1040: EXCEPTION
1041: --
1044: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1045: --
1046: IF l_debug_on THEN
1047: --
1048: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
1049: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1050: --
1051: END IF;
1052: --
1045: --
1046: IF l_debug_on THEN
1047: --
1048: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
1049: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1050: --
1051: END IF;
1052: --
1053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1055: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1056: --
1057: IF l_debug_on THEN
1058: --
1059: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1060: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1061: --
1062: END IF;
1063: --
1056: --
1057: IF l_debug_on THEN
1058: --
1059: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1060: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1061: --
1062: END IF;
1063: --
1064: WHEN OTHERS THEN
1066: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1067: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Update_New_Delivery');
1068: --
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1071: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1072: END IF;
1073: --
1074:
1067: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Update_New_Delivery');
1068: --
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1071: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1072: END IF;
1073: --
1074:
1075: --}
1194: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1195:
1196: IF l_debug_on IS NULL THEN
1197: --{
1198: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1199: --}
1200: END IF;
1201:
1202:
1201:
1202:
1203: IF l_debug_on THEN
1204: --{
1205: WSH_DEBUG_SV.push(l_module_name);
1206: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1207: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1208: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1209: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1202:
1203: IF l_debug_on THEN
1204: --{
1205: WSH_DEBUG_SV.push(l_module_name);
1206: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1207: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1208: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1209: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1210: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1203: IF l_debug_on THEN
1204: --{
1205: WSH_DEBUG_SV.push(l_module_name);
1206: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1207: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1208: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1209: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1210: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1211: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1204: --{
1205: WSH_DEBUG_SV.push(l_module_name);
1206: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1207: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1208: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1209: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1210: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1211: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1212: WSH_DEBUG_SV.log(l_module_name,'P_SITE_MERGE',p_site_merge);
1205: WSH_DEBUG_SV.push(l_module_name);
1206: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1207: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1208: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1209: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1210: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1211: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1212: WSH_DEBUG_SV.log(l_module_name,'P_SITE_MERGE',p_site_merge);
1213: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SUPPLIER_NAME',p_from_supplier_name);
1206: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1207: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1208: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1209: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1210: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1211: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1212: WSH_DEBUG_SV.log(l_module_name,'P_SITE_MERGE',p_site_merge);
1213: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SUPPLIER_NAME',p_from_supplier_name);
1214: --}
1207: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1208: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1209: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1210: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1211: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1212: WSH_DEBUG_SV.log(l_module_name,'P_SITE_MERGE',p_site_merge);
1213: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SUPPLIER_NAME',p_from_supplier_name);
1214: --}
1215: END IF;
1208: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1209: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1210: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1211: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1212: WSH_DEBUG_SV.log(l_module_name,'P_SITE_MERGE',p_site_merge);
1213: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SUPPLIER_NAME',p_from_supplier_name);
1214: --}
1215: END IF;
1216:
1209: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1210: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1211: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1212: WSH_DEBUG_SV.log(l_module_name,'P_SITE_MERGE',p_site_merge);
1213: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SUPPLIER_NAME',p_from_supplier_name);
1214: --}
1215: END IF;
1216:
1217: -- Update WSH_CARRIERS with the merge to vendor/vendor site
1225: AND supplier_site_id = p_from_site_id;
1226: --
1227: IF l_debug_on THEN
1228: --{
1229: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_carriers. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
1230: --}
1231: END IF;
1232: --
1233: -- Update WSH_CARRIER_SITES with the merge to vendor site
1240: WHERE supplier_site_id = p_from_site_id;
1241: --
1242: IF l_debug_on THEN
1243: --{
1244: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_carrier_sites. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
1245: --}
1246: END IF;
1247: --
1248: WSH_PARTY_MERGE.Update_Entities_During_Merge
1271: LOOP
1272: --{
1273: IF l_debug_on THEN
1274: --{
1275: WSH_DEBUG_SV.logmsg(l_module_name, '-----------------------', WSH_DEBUG_SV.C_STMT_LEVEL);
1276: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_TYPE = ' || check_site_calendar_rec.calendar_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1277: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_ASSIGNMENT_ID = ' || check_site_calendar_rec.calendar_assignment_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1278: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_ID = ' || check_site_calendar_rec.vendor_site_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1279: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.ASSOCIATION_TYPE = ' || check_site_calendar_rec.association_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1272: --{
1273: IF l_debug_on THEN
1274: --{
1275: WSH_DEBUG_SV.logmsg(l_module_name, '-----------------------', WSH_DEBUG_SV.C_STMT_LEVEL);
1276: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_TYPE = ' || check_site_calendar_rec.calendar_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1277: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_ASSIGNMENT_ID = ' || check_site_calendar_rec.calendar_assignment_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1278: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_ID = ' || check_site_calendar_rec.vendor_site_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1279: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.ASSOCIATION_TYPE = ' || check_site_calendar_rec.association_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1280: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.FREIGHT_CODE = ' || check_site_calendar_rec.freight_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1273: IF l_debug_on THEN
1274: --{
1275: WSH_DEBUG_SV.logmsg(l_module_name, '-----------------------', WSH_DEBUG_SV.C_STMT_LEVEL);
1276: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_TYPE = ' || check_site_calendar_rec.calendar_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1277: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_ASSIGNMENT_ID = ' || check_site_calendar_rec.calendar_assignment_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1278: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_ID = ' || check_site_calendar_rec.vendor_site_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1279: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.ASSOCIATION_TYPE = ' || check_site_calendar_rec.association_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1280: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.FREIGHT_CODE = ' || check_site_calendar_rec.freight_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1281: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_CODE = ' || check_site_calendar_rec.vendor_site_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1274: --{
1275: WSH_DEBUG_SV.logmsg(l_module_name, '-----------------------', WSH_DEBUG_SV.C_STMT_LEVEL);
1276: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_TYPE = ' || check_site_calendar_rec.calendar_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1277: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_ASSIGNMENT_ID = ' || check_site_calendar_rec.calendar_assignment_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1278: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_ID = ' || check_site_calendar_rec.vendor_site_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1279: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.ASSOCIATION_TYPE = ' || check_site_calendar_rec.association_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1280: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.FREIGHT_CODE = ' || check_site_calendar_rec.freight_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1281: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_CODE = ' || check_site_calendar_rec.vendor_site_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1282: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.calendar_CODE = ' || check_site_calendar_rec.calendar_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1275: WSH_DEBUG_SV.logmsg(l_module_name, '-----------------------', WSH_DEBUG_SV.C_STMT_LEVEL);
1276: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_TYPE = ' || check_site_calendar_rec.calendar_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1277: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_ASSIGNMENT_ID = ' || check_site_calendar_rec.calendar_assignment_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1278: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_ID = ' || check_site_calendar_rec.vendor_site_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1279: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.ASSOCIATION_TYPE = ' || check_site_calendar_rec.association_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1280: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.FREIGHT_CODE = ' || check_site_calendar_rec.freight_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1281: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_CODE = ' || check_site_calendar_rec.vendor_site_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1282: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.calendar_CODE = ' || check_site_calendar_rec.calendar_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1283: --}
1276: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_TYPE = ' || check_site_calendar_rec.calendar_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1277: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_ASSIGNMENT_ID = ' || check_site_calendar_rec.calendar_assignment_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1278: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_ID = ' || check_site_calendar_rec.vendor_site_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1279: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.ASSOCIATION_TYPE = ' || check_site_calendar_rec.association_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1280: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.FREIGHT_CODE = ' || check_site_calendar_rec.freight_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1281: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_CODE = ' || check_site_calendar_rec.vendor_site_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1282: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.calendar_CODE = ' || check_site_calendar_rec.calendar_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1283: --}
1284: END IF;
1277: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.CALENDAR_ASSIGNMENT_ID = ' || check_site_calendar_rec.calendar_assignment_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1278: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_ID = ' || check_site_calendar_rec.vendor_site_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1279: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.ASSOCIATION_TYPE = ' || check_site_calendar_rec.association_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1280: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.FREIGHT_CODE = ' || check_site_calendar_rec.freight_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1281: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_CODE = ' || check_site_calendar_rec.vendor_site_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1282: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.calendar_CODE = ' || check_site_calendar_rec.calendar_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1283: --}
1284: END IF;
1285: OPEN check_dup_assignment( p_vendor_id => p_to_id,
1278: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_ID = ' || check_site_calendar_rec.vendor_site_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1279: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.ASSOCIATION_TYPE = ' || check_site_calendar_rec.association_type, WSH_DEBUG_SV.C_STMT_LEVEL);
1280: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.FREIGHT_CODE = ' || check_site_calendar_rec.freight_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1281: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.VENDOR_SITE_CODE = ' || check_site_calendar_rec.vendor_site_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1282: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SITE_CALENDAR_REC.calendar_CODE = ' || check_site_calendar_rec.calendar_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1283: --}
1284: END IF;
1285: OPEN check_dup_assignment( p_vendor_id => p_to_id,
1286: p_calendar_Type => check_site_calendar_rec.calendar_type,
1301: WHERE calendar_assignment_id = check_site_calendar_rec.calendar_assignment_id;
1302: --
1303: IF l_debug_on THEN
1304: --{
1305: WSH_DEBUG_SV.log(l_module_name, 'Calendar Assgn ID updated',
1306: check_site_calendar_rec.calendar_assignment_id);
1307: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_calendar_assignments. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
1308: --}
1309: END IF;
1303: IF l_debug_on THEN
1304: --{
1305: WSH_DEBUG_SV.log(l_module_name, 'Calendar Assgn ID updated',
1306: check_site_calendar_rec.calendar_assignment_id);
1307: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_calendar_assignments. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
1308: --}
1309: END IF;
1310: --
1311: -- Is there a vendor level calendar assignment ? If not, create one
1317: FETCH c_VendorLvlCalAsg INTO v_VendorLvlCalAsg;
1318: CLOSE c_VendorLvlCalAsg;
1319: --
1320: IF l_debug_on THEN
1321: WSH_DEBUG_SV.log(l_module_name, 'Vendor Lvl Cal. Asg Exists ? ', v_VendorLvlCalAsg);
1322: END IF;
1323: --
1324: IF v_VendorLvlCalAsg = 0 THEN
1325: --{
1324: IF v_VendorLvlCalAsg = 0 THEN
1325: --{
1326: --
1327: IF l_debug_on THEN
1328: WSH_DEBUG_SV.log(l_module_name, 'Creating vendor level Cal. Asg', p_to_id);
1329: END IF;
1330: --
1331: l_CalAsgInfo.CALENDAR_CODE := check_site_calendar_rec.calendar_code;
1332: l_CalAsgInfo.CALENDAR_TYPE := check_site_calendar_rec.calendar_type;
1344: x_Calendar_Aassignment_Id => l_CalAsgId
1345: );
1346: --
1347: IF l_debug_on THEN
1348: WSH_DEBUG_SV.log(l_module_name, 'Return status from CAL. API', l_return_status);
1349: WSH_DEBUG_SV.log(l_module_name, 'Calendar Assgn ID', l_CalAsgId);
1350: END IF;
1351: --
1352: wsh_util_core.api_post_call
1345: );
1346: --
1347: IF l_debug_on THEN
1348: WSH_DEBUG_SV.log(l_module_name, 'Return status from CAL. API', l_return_status);
1349: WSH_DEBUG_SV.log(l_module_name, 'Calendar Assgn ID', l_CalAsgId);
1350: END IF;
1351: --
1352: wsh_util_core.api_post_call
1353: (
1366: DELETE wsh_calendar_assignments
1367: WHERE calendar_assignment_id = check_site_calendar_rec.calendar_assignment_id;
1368: IF l_debug_on THEN
1369: --{
1370: WSH_DEBUG_SV.log(l_module_name, 'Calendar Assgn ID deleted',
1371: check_site_calendar_rec.calendar_assignment_id);
1372: WSH_DEBUG_SV.logmsg(l_module_name,'Deleted record(s) from wsh_calendar_assignments. Number of Rows deleted is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
1373: --}
1374: END IF;
1368: IF l_debug_on THEN
1369: --{
1370: WSH_DEBUG_SV.log(l_module_name, 'Calendar Assgn ID deleted',
1371: check_site_calendar_rec.calendar_assignment_id);
1372: WSH_DEBUG_SV.logmsg(l_module_name,'Deleted record(s) from wsh_calendar_assignments. Number of Rows deleted is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
1373: --}
1374: END IF;
1375:
1376: IF check_site_calendar_rec.freight_code IS NULL THEN
1397: --
1398: IF NOT p_site_merge THEN
1399: --{
1400: IF l_debug_on THEN
1401: wsh_debug_sv.logmsg(l_module_name, 'Calling InactivatePartySites', WSH_DEBUG_SV.C_PROC_LEVEL);
1402: END IF;
1403: --
1404: InactivatePartySites
1405: (
1409: x_return_status => l_return_status
1410: );
1411: --
1412: IF l_debug_on THEN
1413: wsh_debug_sv.log(l_module_name, 'Return Status from InactivatePartySites', l_return_status);
1414: END IF;
1415: --
1416: wsh_util_core.api_post_call
1417: (
1431: --}
1432: END IF;
1433: --
1434: IF l_debug_on THEN
1435: WSH_DEBUG_SV.pop(l_module_name);
1436: END IF;
1437: --
1438: EXCEPTION
1439: --
1442: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1443: --
1444: IF l_debug_on THEN
1445: --
1446: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
1447: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1448: --
1449: END IF;
1450: --
1443: --
1444: IF l_debug_on THEN
1445: --
1446: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
1447: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1448: --
1449: END IF;
1450: --
1451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1453: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1454: --
1455: IF l_debug_on THEN
1456: --
1457: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1458: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1459: --
1460: END IF;
1461: --
1454: --
1455: IF l_debug_on THEN
1456: --
1457: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1458: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1459: --
1460: END IF;
1461: --
1462: WHEN OTHERS THEN
1464: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1465: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Update_Non_PO_Entities');
1466: --
1467: IF l_debug_on THEN
1468: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1470: END IF;
1471: --
1472: END Update_Non_PO_Entities;
1465: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Update_Non_PO_Entities');
1466: --
1467: IF l_debug_on THEN
1468: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1470: END IF;
1471: --
1472: END Update_Non_PO_Entities;
1473:
1715: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1716:
1717: IF l_debug_on IS NULL THEN
1718: --{
1719: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1720: --}
1721: END IF;
1722:
1723:
1722:
1723:
1724: IF l_debug_on THEN
1725: --{
1726: WSH_DEBUG_SV.push(l_module_name);
1727: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1728: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1729: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1730: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1723:
1724: IF l_debug_on THEN
1725: --{
1726: WSH_DEBUG_SV.push(l_module_name);
1727: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1728: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1729: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1730: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1731: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1724: IF l_debug_on THEN
1725: --{
1726: WSH_DEBUG_SV.push(l_module_name);
1727: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1728: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1729: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1730: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1731: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1732: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1725: --{
1726: WSH_DEBUG_SV.push(l_module_name);
1727: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1728: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1729: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1730: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1731: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1732: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1733: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
1726: WSH_DEBUG_SV.push(l_module_name);
1727: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1728: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1729: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1730: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1731: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1732: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1733: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
1734: --}
1727: WSH_DEBUG_SV.log(l_module_name,'P_FROM_ID',p_from_id);
1728: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1729: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1730: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1731: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1732: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1733: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
1734: --}
1735: END IF;
1728: WSH_DEBUG_SV.log(l_module_name,'P_TO_ID',p_to_id);
1729: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1730: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1731: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1732: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1733: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
1734: --}
1735: END IF;
1736:
1729: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID',p_from_party_id);
1730: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID',p_to_party_id);
1731: WSH_DEBUG_SV.log(l_module_name,'P_FROM_SITE_ID',p_from_site_id);
1732: WSH_DEBUG_SV.log(l_module_name,'P_TO_SITE_ID',p_to_site_id);
1733: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
1734: --}
1735: END IF;
1736:
1737: wsh_util_core.enable_concurrent_log_print ;
1744: --{
1745: CLOSE check_vendor_active;
1746: IF l_debug_on THEN
1747: --{
1748: WSH_DEBUG_SV.logmsg(l_module_name,'Error : No Record exists in PO_VENDOR for vendor id : ' || p_from_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1749: --}
1750: END IF;
1751: fnd_message.set_name ( 'WSH', 'WSH_IB_VENDOR_NOT_EXISTS' );
1752: fnd_message.set_token( 'VENDOR_ID' , to_char(p_from_id) );
1754: wsh_util_core.printMsg( l_msg );
1755: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1756: --
1757: IF l_debug_on THEN
1758: WSH_DEBUG_SV.pop(l_module_name);
1759: END IF;
1760: --
1761: RETURN;
1762: --}
1773: END IF;
1774:
1775: IF l_debug_on THEN
1776: --{
1777: WSH_DEBUG_SV.log(l_module_name,'End date for Vendor ID : ' || p_from_id || ' is ',l_end_date_active, WSH_DEBUG_SV.C_STMT_LEVEL);
1778: WSH_DEBUG_SV.log(l_module_name,'L_SITE_MERGE = ',l_site_merge, WSH_DEBUG_SV.C_STMT_LEVEL);
1779: --}
1780: END IF;
1781:
1774:
1775: IF l_debug_on THEN
1776: --{
1777: WSH_DEBUG_SV.log(l_module_name,'End date for Vendor ID : ' || p_from_id || ' is ',l_end_date_active, WSH_DEBUG_SV.C_STMT_LEVEL);
1778: WSH_DEBUG_SV.log(l_module_name,'L_SITE_MERGE = ',l_site_merge, WSH_DEBUG_SV.C_STMT_LEVEL);
1779: --}
1780: END IF;
1781:
1782: -- Update for entities which are not dependent on the invoice/PO selection
1781:
1782: -- Update for entities which are not dependent on the invoice/PO selection
1783: IF l_debug_on THEN
1784: --{
1785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NON_PO_ENTITIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1786: --}
1787: END IF;
1788: --
1789: -- Update non-PO entities irrespective of calling mode
1819: --FETCH check_option INTO l_option;
1820: --CLOSE check_option;
1821: --
1822: --IF l_debug_on THEN
1823: --WSH_DEBUG_SV.logmsg(l_module_name,'l_OPTION = ' || l_option, WSH_DEBUG_SV.C_STMT_LEVEL);
1824: --END IF;
1825: --
1826:
1827: --IF (l_option= 'B' OR l_option = 'P') THEN
1831: FETCH check_po BULK COLLECT INTO l_delivery_list, l_dd_list;
1832: CLOSE check_po;
1833: IF l_debug_on THEN
1834: --{
1835: WSH_DEBUG_SV.logmsg(l_module_name,'Count of Rows fetched from Cursor CHECK_PO = ' || l_delivery_list.count, WSH_DEBUG_SV.C_STMT_LEVEL);
1836: --}
1837: END IF;
1838:
1839: IF l_dd_list.COUNT > 0 THEN
1850: sysdate );
1851:
1852: IF l_debug_on THEN
1853: --{
1854: WSH_DEBUG_SV.logmsg(l_module_name,'Inserted records into wsh_wms_sync_tmp. Number of Rows inserted is ' || l_dd_list.count, WSH_DEBUG_SV.C_STMT_LEVEL);
1855: --}
1856: END IF;
1857:
1858: --
1868: IF SQL%ROWCOUNT <> l_dd_list.count THEN
1869: --{
1870: IF l_debug_on THEN
1871: --{
1872: WSH_DEBUG_SV.log(l_module_name, 'Updated WDD records with vendor/vendor site', p_to_id || ' - ' || p_To_site_id);
1873: WSH_DEBUG_SV.logmsg( l_module_name,'Out of ' || l_dd_list.count || ' delivery details, only ' || sql%rowcount || ' were updated.', WSH_DEBUG_SV.C_STMT_LEVEL);
1874: --}
1875: END IF;
1876: fnd_message.set_name ( 'WSH', 'WSH_IB_DLY_DET_UPDT_MISMATCH' );
1869: --{
1870: IF l_debug_on THEN
1871: --{
1872: WSH_DEBUG_SV.log(l_module_name, 'Updated WDD records with vendor/vendor site', p_to_id || ' - ' || p_To_site_id);
1873: WSH_DEBUG_SV.logmsg( l_module_name,'Out of ' || l_dd_list.count || ' delivery details, only ' || sql%rowcount || ' were updated.', WSH_DEBUG_SV.C_STMT_LEVEL);
1874: --}
1875: END IF;
1876: fnd_message.set_name ( 'WSH', 'WSH_IB_DLY_DET_UPDT_MISMATCH' );
1877: fnd_message.set_token( 'NUM_DETAILS_AFFECTED' , to_char(l_dd_list.count) );
1881: --}
1882: END IF;
1883: IF l_debug_on THEN
1884: --{
1885: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_delivery_details. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
1886: --}
1887: END IF;
1888:
1889: --}
1899: --}
1900: END IF;
1901: --
1902: IF l_debug_on THEN
1903: WSH_DEBUG_SV.log(l_module_name,'Rows fetched from Cursor FIND_DELIVERY', l_delivery_rec_tbl.count);
1904: END IF;
1905:
1906: IF l_delivery_rec_tbl.COUNT > 0 THEN
1907: --{
1909: LOOP
1910: --{
1911: --
1912: IF l_debug_on THEN
1913: wsh_debug_sv.logmsg(l_module_name, '**********************************', WSH_DEBUG_SV.C_STMT_LEVEL);
1914: wsh_debug_sv.log(l_module_name, 'Processing delivery', l_delivery_rec_tbl(k).delivery_id);
1915: wsh_debug_sv.logmsg(l_module_name, '**********************************', WSH_DEBUG_SV.C_STMT_LEVEL);
1916: END IF;
1917: --
1910: --{
1911: --
1912: IF l_debug_on THEN
1913: wsh_debug_sv.logmsg(l_module_name, '**********************************', WSH_DEBUG_SV.C_STMT_LEVEL);
1914: wsh_debug_sv.log(l_module_name, 'Processing delivery', l_delivery_rec_tbl(k).delivery_id);
1915: wsh_debug_sv.logmsg(l_module_name, '**********************************', WSH_DEBUG_SV.C_STMT_LEVEL);
1916: END IF;
1917: --
1918: l_delivery_rec := l_delivery_rec_tbl(k);
1911: --
1912: IF l_debug_on THEN
1913: wsh_debug_sv.logmsg(l_module_name, '**********************************', WSH_DEBUG_SV.C_STMT_LEVEL);
1914: wsh_debug_sv.log(l_module_name, 'Processing delivery', l_delivery_rec_tbl(k).delivery_id);
1915: wsh_debug_sv.logmsg(l_module_name, '**********************************', WSH_DEBUG_SV.C_STMT_LEVEL);
1916: END IF;
1917: --
1918: l_delivery_rec := l_delivery_rec_tbl(k);
1919: l_dup :=NULL;
1929: l_ult_dropoff_loc_id;
1930: CLOSE check_duplicate_vendor;
1931: IF l_debug_on THEN
1932: --{
1933: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DUP =' || l_dup, WSH_DEBUG_SV.C_STMT_LEVEL);
1934: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_LOCATION_ID =' || l_location_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1935: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_STATUS_CODE =' || l_dlvy_status_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1936: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ROUTING_RESPONSE_ID =' || l_routing_response_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1937: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_NAME =' || l_dlvy_name, WSH_DEBUG_SV.C_STMT_LEVEL);
1930: CLOSE check_duplicate_vendor;
1931: IF l_debug_on THEN
1932: --{
1933: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DUP =' || l_dup, WSH_DEBUG_SV.C_STMT_LEVEL);
1934: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_LOCATION_ID =' || l_location_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1935: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_STATUS_CODE =' || l_dlvy_status_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1936: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ROUTING_RESPONSE_ID =' || l_routing_response_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1937: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_NAME =' || l_dlvy_name, WSH_DEBUG_SV.C_STMT_LEVEL);
1938: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ULT_DROPOFF_LOC_ID =' || l_ult_dropoff_loc_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1931: IF l_debug_on THEN
1932: --{
1933: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DUP =' || l_dup, WSH_DEBUG_SV.C_STMT_LEVEL);
1934: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_LOCATION_ID =' || l_location_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1935: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_STATUS_CODE =' || l_dlvy_status_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1936: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ROUTING_RESPONSE_ID =' || l_routing_response_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1937: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_NAME =' || l_dlvy_name, WSH_DEBUG_SV.C_STMT_LEVEL);
1938: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ULT_DROPOFF_LOC_ID =' || l_ult_dropoff_loc_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1939: --}
1932: --{
1933: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DUP =' || l_dup, WSH_DEBUG_SV.C_STMT_LEVEL);
1934: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_LOCATION_ID =' || l_location_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1935: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_STATUS_CODE =' || l_dlvy_status_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1936: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ROUTING_RESPONSE_ID =' || l_routing_response_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1937: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_NAME =' || l_dlvy_name, WSH_DEBUG_SV.C_STMT_LEVEL);
1938: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ULT_DROPOFF_LOC_ID =' || l_ult_dropoff_loc_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1939: --}
1940: END IF;
1933: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DUP =' || l_dup, WSH_DEBUG_SV.C_STMT_LEVEL);
1934: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_LOCATION_ID =' || l_location_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1935: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_STATUS_CODE =' || l_dlvy_status_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1936: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ROUTING_RESPONSE_ID =' || l_routing_response_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1937: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_NAME =' || l_dlvy_name, WSH_DEBUG_SV.C_STMT_LEVEL);
1938: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ULT_DROPOFF_LOC_ID =' || l_ult_dropoff_loc_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1939: --}
1940: END IF;
1941:
1934: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_LOCATION_ID =' || l_location_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1935: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_STATUS_CODE =' || l_dlvy_status_code, WSH_DEBUG_SV.C_STMT_LEVEL);
1936: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ROUTING_RESPONSE_ID =' || l_routing_response_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1937: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_DLVY_NAME =' || l_dlvy_name, WSH_DEBUG_SV.C_STMT_LEVEL);
1938: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_DUPLICATE_VENDOR : L_ULT_DROPOFF_LOC_ID =' || l_ult_dropoff_loc_id, WSH_DEBUG_SV.C_STMT_LEVEL);
1939: --}
1940: END IF;
1941:
1942:
1947: FETCH check_temp INTO l_temp;
1948: CLOSE check_temp;
1949: IF l_debug_on THEN
1950: --{
1951: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHECK_TEMP : L_TEMP =' || l_temp, WSH_DEBUG_SV.C_STMT_LEVEL);
1952: --}
1953: END IF;
1954:
1955: IF ( l_temp IS NULL ) THEN
1960: FETCH check_detail BULK COLLECT INTO l_delivery_detail_tbl;
1961: CLOSE check_detail;
1962: IF l_debug_on THEN
1963: --{
1964: WSH_DEBUG_SV.logmsg(l_module_name,'Count of Rows fetched from Cursor CHECK_DETAIL = ' || l_delivery_detail_tbl.count, WSH_DEBUG_SV.C_STMT_LEVEL);
1965: --}
1966: END IF;
1967:
1968: IF l_debug_on THEN
1966: END IF;
1967:
1968: IF l_debug_on THEN
1969: --{
1970: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_UTIL_PKG.SPLIT_INBOUND_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
1971: --}
1972: END IF;
1973:
1974: l_new_delivery_id := NULL;
1980: p_caller => 'WSH_VENDOR_MERGE'
1981: );
1982: IF l_debug_on THEN
1983: --{
1984: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_INBOUND_UTIL_PKG.SPLIT_INBOUND_DELIVERY is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
1985: WSH_DEBUG_SV.log(l_module_name, 'New Delivery ID', l_new_delivery_id);
1986: --}
1987: END IF;
1988:
1981: );
1982: IF l_debug_on THEN
1983: --{
1984: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_INBOUND_UTIL_PKG.SPLIT_INBOUND_DELIVERY is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
1985: WSH_DEBUG_SV.log(l_module_name, 'New Delivery ID', l_new_delivery_id);
1986: --}
1987: END IF;
1988:
1989: wsh_util_core.api_post_call(
1996:
1997: --Update WSH_NEW_DELIVERIES with the merge to vendor
1998: IF l_debug_on THEN
1999: --{
2000: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NEW_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2001: --}
2002: END IF;
2003:
2004: Update_new_delivery(
2014: x_return_status => l_return_status
2015: );
2016: IF l_debug_on THEN
2017: --{
2018: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NEW_DELIVERY is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2019: --}
2020: END IF;
2021:
2022: wsh_util_core.api_post_call(
2040: FETCH check_detail BULK COLLECT INTO l_delivery_detail_tbl;
2041: CLOSE check_detail;
2042: IF l_debug_on THEN
2043: --{
2044: WSH_DEBUG_SV.logmsg(l_module_name,'Count of Rows fetched from Cursor CHECK_DETAIL = ' || l_delivery_detail_tbl.count, WSH_DEBUG_SV.C_STMT_LEVEL);
2045: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_UTIL_PKG.SPLIT_INBOUND_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2046: --}
2047: END IF;
2048:
2041: CLOSE check_detail;
2042: IF l_debug_on THEN
2043: --{
2044: WSH_DEBUG_SV.logmsg(l_module_name,'Count of Rows fetched from Cursor CHECK_DETAIL = ' || l_delivery_detail_tbl.count, WSH_DEBUG_SV.C_STMT_LEVEL);
2045: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_UTIL_PKG.SPLIT_INBOUND_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2046: --}
2047: END IF;
2048:
2049: Wsh_inbound_util_pkg.split_inbound_delivery(
2054: p_caller => 'WSH_VENDOR_MERGE'
2055: );
2056: IF l_debug_on THEN
2057: --{
2058: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_INBOUND_UTIL_PKG.SPLIT_INBOUND_DELIVERY is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2059: --}
2060: END IF;
2061:
2062: wsh_util_core.api_post_call(
2090: --
2091: --Update WSH_NEW_DELIVERIES with the merge to vendor
2092: IF l_debug_on THEN
2093: --{
2094: --wsh_debug_sv.log(l_module_name, 'l_dup', l_dup);
2095: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NEW_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2096: --}
2097: END IF;
2098:
2091: --Update WSH_NEW_DELIVERIES with the merge to vendor
2092: IF l_debug_on THEN
2093: --{
2094: --wsh_debug_sv.log(l_module_name, 'l_dup', l_dup);
2095: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NEW_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2096: --}
2097: END IF;
2098:
2099: Update_new_delivery(
2109: x_return_status => l_return_status
2110: );
2111: IF l_debug_on THEN
2112: --{
2113: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NEW_DELIVERY is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2114: --}
2115: END IF;
2116:
2117: wsh_util_core.api_post_call(
2133: AND shipment_header_id = l_delivery_rec.delivery_id
2134: AND supplier_id = p_from_id;
2135: IF l_debug_on THEN
2136: --{
2137: WSH_DEBUG_SV.log(l_module_name, 'Updated ROUTING_RESP record for', l_delivery_rec.delivery_id);
2138: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_inbound_txn_history. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
2139: --}
2140: END IF;
2141:
2134: AND supplier_id = p_from_id;
2135: IF l_debug_on THEN
2136: --{
2137: WSH_DEBUG_SV.log(l_module_name, 'Updated ROUTING_RESP record for', l_delivery_rec.delivery_id);
2138: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_inbound_txn_history. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
2139: --}
2140: END IF;
2141:
2142: --}
2145: --}
2146: END IF; -- if l_dup ='Y'
2147: --
2148: IF l_debug_on THEN
2149: wsh_debug_sv.log(l_module_name, 'Updating vendor info. on containers assigned to delivery', l_chk_delivery_id);
2150: END IF;
2151: --
2152: UPDATE wsh_delivery_details
2153: SET vendor_id = p_to_id,
2165: AND delivery_id = l_chk_delivery_id
2166: );
2167: --
2168: IF l_debug_on THEN
2169: wsh_debug_sv.log(l_module_name, 'No. of container records updated', SQL%ROWCOUNT);
2170: END IF;
2171: --
2172: OPEN dlvy_rr_csr(l_chk_delivery_id);
2173: FETCH dlvy_rr_csr BULK COLLECT INTO l_dlvy_rr_rec_tbl;
2174: CLOSE dlvy_rr_csr;
2175: --
2176: IF l_debug_on THEN
2177: --{
2178: WSH_DEBUG_SV.logmsg(l_module_name,'Count of Rows fetched from Cursor DLVY_RR_CSR = ' || l_dlvy_rr_rec_tbl.count, WSH_DEBUG_SV.C_STMT_LEVEL);
2179: --}
2180: END IF;
2181:
2182: IF l_dlvy_rr_rec_tbl.COUNT > 0 THEN
2202: l1_parent_shipment_header_id;
2203: CLOSE chk_rreq_csr;
2204: IF l_debug_on THEN
2205: --{
2206: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHK_RREQ_CSR : L1_TRANSACTION_ID =' || l1_transaction_id, WSH_DEBUG_SV.C_STMT_LEVEL);
2207: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHK_RREQ_CSR : L1_REVISION_NUMBER =' || l1_revision_number, WSH_DEBUG_SV.C_STMT_LEVEL);
2208: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHK_RREQ_CSR : L1_PARENT_SHIPMENT_HEADER_ID =' || l1_parent_shipment_header_id, WSH_DEBUG_SV.C_STMT_LEVEL);
2209: --}
2210: END IF;
2203: CLOSE chk_rreq_csr;
2204: IF l_debug_on THEN
2205: --{
2206: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHK_RREQ_CSR : L1_TRANSACTION_ID =' || l1_transaction_id, WSH_DEBUG_SV.C_STMT_LEVEL);
2207: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHK_RREQ_CSR : L1_REVISION_NUMBER =' || l1_revision_number, WSH_DEBUG_SV.C_STMT_LEVEL);
2208: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHK_RREQ_CSR : L1_PARENT_SHIPMENT_HEADER_ID =' || l1_parent_shipment_header_id, WSH_DEBUG_SV.C_STMT_LEVEL);
2209: --}
2210: END IF;
2211:
2204: IF l_debug_on THEN
2205: --{
2206: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHK_RREQ_CSR : L1_TRANSACTION_ID =' || l1_transaction_id, WSH_DEBUG_SV.C_STMT_LEVEL);
2207: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHK_RREQ_CSR : L1_REVISION_NUMBER =' || l1_revision_number, WSH_DEBUG_SV.C_STMT_LEVEL);
2208: WSH_DEBUG_SV.logmsg(l_module_name,'Cursor CHK_RREQ_CSR : L1_PARENT_SHIPMENT_HEADER_ID =' || l1_parent_shipment_header_id, WSH_DEBUG_SV.C_STMT_LEVEL);
2209: --}
2210: END IF;
2211:
2212: IF l1_revision_number = l_dlvy_rr_rec.revision_number
2274: --}
2275: END IF;
2276: --
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.pop(l_module_name);
2279: END IF;
2280: --
2281: RETURN;
2282: --}
2294: IF l_new_rr_id IS NULL THEN
2295: --{
2296: IF l_debug_on THEN
2297: --{
2298: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GET_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2299: --}
2300: END IF;
2301: WSH_INBOUND_TXN_HISTORY_PKG.get_txn_history(
2302: p_transaction_id => l_dlvy_rr_rec.routing_req_id,
2304: x_return_status => l_return_status
2305: );
2306: IF l_debug_on THEN
2307: --{
2308: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_INBOUND_TXN_HISTORY_PKG.GET_TXN_HISTORY is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2309: --}
2310: END IF;
2311: wsh_util_core.api_post_call(
2312: p_return_status => l_return_status,
2319: l_txn_history_rec.supplier_id := p_to_id;
2320: --
2321: IF l_debug_on THEN
2322: --{
2323: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.CREATE_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2324: --}
2325: END IF;
2326: WSH_INBOUND_TXN_HISTORY_PKG.create_txn_history(
2327: p_txn_history_rec => l_txn_history_rec,
2329: x_return_status => l_return_status
2330: );
2331: IF l_debug_on THEN
2332: --
2333: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_INBOUND_TXN_HISTORY_PKG.CREATE_TXN_HISTORY is ' , l_return_status);
2334: WSH_DEBUG_SV.log(l_module_name, 'New Txn ID', l_new_rr_id);
2335:
2336: --
2337: END IF;
2330: );
2331: IF l_debug_on THEN
2332: --
2333: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_INBOUND_TXN_HISTORY_PKG.CREATE_TXN_HISTORY is ' , l_return_status);
2334: WSH_DEBUG_SV.log(l_module_name, 'New Txn ID', l_new_rr_id);
2335:
2336: --
2337: END IF;
2338: wsh_util_core.api_post_call(
2375: );
2376: --
2377: IF l_debug_on THEN
2378: --
2379: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_XC_UTIL.LOG_EXCEPTION is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2380: --
2381: END IF;
2382: --
2383: wsh_util_core.api_post_call(
2391: --}
2392: END IF;--IF l_prev_old_rr_id = l_dlvy_rr_rec.routing_req_id
2393: --
2394: IF l_debug_on THEN
2395: wsh_debug_sv.log(l_module_name, 'WDD ID to update', l_dlvy_rr_rec.delivery_detail_id);
2396: wsh_debug_sv.log(l_module_name, 'Routing Req ID to update with', l_new_rr_id);
2397: END IF;
2398: --
2399: UPDATE wsh_delivery_details
2392: END IF;--IF l_prev_old_rr_id = l_dlvy_rr_rec.routing_req_id
2393: --
2394: IF l_debug_on THEN
2395: wsh_debug_sv.log(l_module_name, 'WDD ID to update', l_dlvy_rr_rec.delivery_detail_id);
2396: wsh_debug_sv.log(l_module_name, 'Routing Req ID to update with', l_new_rr_id);
2397: END IF;
2398: --
2399: UPDATE wsh_delivery_details
2400: SET routing_req_Id = l_new_rr_id,
2404: WHERE delivery_detail_id = l_dlvy_rr_rec.delivery_detail_id;
2405: --
2406: IF l_debug_on THEN
2407: --{
2408: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_delivery_details. Number of Rows updated is ' || sql%rowcount, WSH_DEBUG_SV.C_STMT_LEVEL);
2409: --}
2410: END IF;
2411:
2412: l_prev_old_rr_id := l_dlvy_rr_rec.routing_req_id;
2441: l_numRowsUpdated := SQL%ROWCOUNT;
2442: --
2443: IF l_debug_on THEN
2444: --{
2445: WSH_DEBUG_SV.log(l_module_name, 'Updated ASN/RECEIPT records with vendor', p_to_id);
2446: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_inbound_txn_history. Number of Rows updated is ' || l_numRowsUpdated, WSH_DEBUG_SV.C_STMT_LEVEL);
2447: --}
2448: END IF;
2449: --}
2442: --
2443: IF l_debug_on THEN
2444: --{
2445: WSH_DEBUG_SV.log(l_module_name, 'Updated ASN/RECEIPT records with vendor', p_to_id);
2446: WSH_DEBUG_SV.logmsg(l_module_name,'Updated wsh_inbound_txn_history. Number of Rows updated is ' || l_numRowsUpdated, WSH_DEBUG_SV.C_STMT_LEVEL);
2447: --}
2448: END IF;
2449: --}
2450: END IF;
2473: l_action_prms.caller := 'WSH_PUB';
2474: --
2475: IF l_debug_on THEN
2476: --{
2477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERIES_GRP.DELIVERY_ACTION',WSH_DEBUG_SV.C_PROC_LEVEL);
2478: WSH_DEBUG_SV.log(l_module_name, 'l_dlvy_rr_tbl.COUNT', l_dlvy_rr_tbl.COUNT);
2479: --}
2480: END IF;
2481: --
2474: --
2475: IF l_debug_on THEN
2476: --{
2477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERIES_GRP.DELIVERY_ACTION',WSH_DEBUG_SV.C_PROC_LEVEL);
2478: WSH_DEBUG_SV.log(l_module_name, 'l_dlvy_rr_tbl.COUNT', l_dlvy_rr_tbl.COUNT);
2479: --}
2480: END IF;
2481: --
2482: IF l_dlvy_rr_tbl.COUNT > 0 THEN
2494: x_msg_data => l_msg
2495: );
2496: IF l_debug_on THEN
2497: --{
2498: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_DELIVERIES_GRP.DELIVERY_ACTION is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2499: --}
2500: END IF;
2501:
2502: wsh_util_core.api_post_call(
2522: END LOOP;
2523:
2524: IF l_debug_on THEN
2525: --{
2526: WSH_DEBUG_SV.logmsg( l_module_name,'Calling program unit WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL );
2527: WSH_DEBUG_SV.log(l_module_name, 'l_dlvy_tbl.COUNT', l_dlvy_tbl.COUNT);
2528: FOR i IN 1..l_dlvy_tbl.COUNT LOOP
2529: wsh_debug_sv.log(l_module_name, 'l_dlvy_tbl(i)', l_dlvy_tbl(i));
2530: END LOOP;
2523:
2524: IF l_debug_on THEN
2525: --{
2526: WSH_DEBUG_SV.logmsg( l_module_name,'Calling program unit WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL );
2527: WSH_DEBUG_SV.log(l_module_name, 'l_dlvy_tbl.COUNT', l_dlvy_tbl.COUNT);
2528: FOR i IN 1..l_dlvy_tbl.COUNT LOOP
2529: wsh_debug_sv.log(l_module_name, 'l_dlvy_tbl(i)', l_dlvy_tbl(i));
2530: END LOOP;
2531: --
2525: --{
2526: WSH_DEBUG_SV.logmsg( l_module_name,'Calling program unit WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL );
2527: WSH_DEBUG_SV.log(l_module_name, 'l_dlvy_tbl.COUNT', l_dlvy_tbl.COUNT);
2528: FOR i IN 1..l_dlvy_tbl.COUNT LOOP
2529: wsh_debug_sv.log(l_module_name, 'l_dlvy_tbl(i)', l_dlvy_tbl(i));
2530: END LOOP;
2531: --
2532: --}
2533: END IF;
2541: x_return_status => l_return_status
2542: );
2543: IF l_debug_on THEN
2544: --{
2545: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2546: --}
2547: END IF;
2548:
2549: wsh_util_core.api_post_call(
2609: --}
2610: END IF;
2611: --
2612: IF l_debug_on THEN
2613: WSH_DEBUG_SV.log(l_module_name, 'Final return status', x_return_status);
2614: WSH_DEBUG_SV.pop(l_module_name);
2615: END IF;
2616:
2617: EXCEPTION
2610: END IF;
2611: --
2612: IF l_debug_on THEN
2613: WSH_DEBUG_SV.log(l_module_name, 'Final return status', x_return_status);
2614: WSH_DEBUG_SV.pop(l_module_name);
2615: END IF;
2616:
2617: EXCEPTION
2618: --
2622: ROLLBACK TO WSH_Vendor_Merge;
2623: --
2624: IF l_debug_on THEN
2625: --
2626: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
2627: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2628: --
2629: END IF;
2630: --
2623: --
2624: IF l_debug_on THEN
2625: --
2626: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
2627: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2628: --
2629: END IF;
2630: --
2631: IF NOT(wsh_util_core.g_call_fte_load_tender_api) THEN
2646: ROLLBACK TO WSH_Vendor_Merge;
2647: --
2648: IF l_debug_on THEN
2649: --
2650: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2652: --
2653: END IF;
2654: --
2647: --
2648: IF l_debug_on THEN
2649: --
2650: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2652: --
2653: END IF;
2654: --
2655: IF NOT(wsh_util_core.g_call_fte_load_tender_api) THEN
2667: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Vendor_Merge');
2668: --
2669: IF l_debug_on THEN
2670: --
2671: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2672: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2673: --
2674: END IF;
2675: --
2668: --
2669: IF l_debug_on THEN
2670: --
2671: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2672: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2673: --
2674: END IF;
2675: --
2676: IF NOT(wsh_util_core.g_call_fte_load_tender_api) THEN
2747: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2748: --
2749: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2750: IF l_debug_on IS NULL THEN
2751: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2752: END IF;
2753: --
2754: IF l_debug_on THEN
2755: --
2752: END IF;
2753: --
2754: IF l_debug_on THEN
2755: --
2756: WSH_DEBUG_SV.push(l_module_name);
2757: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_ID', p_from_vendor_id);
2758: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_ID', p_to_vendor_id);
2759: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id);
2760: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id);
2753: --
2754: IF l_debug_on THEN
2755: --
2756: WSH_DEBUG_SV.push(l_module_name);
2757: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_ID', p_from_vendor_id);
2758: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_ID', p_to_vendor_id);
2759: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id);
2760: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id);
2761: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_SITE_ID', p_from_vendor_site_id);
2754: IF l_debug_on THEN
2755: --
2756: WSH_DEBUG_SV.push(l_module_name);
2757: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_ID', p_from_vendor_id);
2758: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_ID', p_to_vendor_id);
2759: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id);
2760: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id);
2761: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_SITE_ID', p_from_vendor_site_id);
2762: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_SITE_ID', p_to_vendor_site_id);
2755: --
2756: WSH_DEBUG_SV.push(l_module_name);
2757: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_ID', p_from_vendor_id);
2758: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_ID', p_to_vendor_id);
2759: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id);
2760: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id);
2761: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_SITE_ID', p_from_vendor_site_id);
2762: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_SITE_ID', p_to_vendor_site_id);
2763: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_SITE_ID', p_from_party_site_id);
2756: WSH_DEBUG_SV.push(l_module_name);
2757: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_ID', p_from_vendor_id);
2758: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_ID', p_to_vendor_id);
2759: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id);
2760: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id);
2761: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_SITE_ID', p_from_vendor_site_id);
2762: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_SITE_ID', p_to_vendor_site_id);
2763: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_SITE_ID', p_from_party_site_id);
2764: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTYSITE_ID', p_to_partysite_id);
2757: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_ID', p_from_vendor_id);
2758: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_ID', p_to_vendor_id);
2759: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id);
2760: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id);
2761: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_SITE_ID', p_from_vendor_site_id);
2762: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_SITE_ID', p_to_vendor_site_id);
2763: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_SITE_ID', p_from_party_site_id);
2764: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTYSITE_ID', p_to_partysite_id);
2765: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
2758: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_ID', p_to_vendor_id);
2759: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id);
2760: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id);
2761: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_SITE_ID', p_from_vendor_site_id);
2762: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_SITE_ID', p_to_vendor_site_id);
2763: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_SITE_ID', p_from_party_site_id);
2764: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTYSITE_ID', p_to_partysite_id);
2765: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
2766: --
2759: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_ID', p_from_party_id);
2760: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id);
2761: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_SITE_ID', p_from_vendor_site_id);
2762: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_SITE_ID', p_to_vendor_site_id);
2763: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_SITE_ID', p_from_party_site_id);
2764: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTYSITE_ID', p_to_partysite_id);
2765: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
2766: --
2767: END IF;
2760: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTY_ID', p_to_party_id);
2761: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_SITE_ID', p_from_vendor_site_id);
2762: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_SITE_ID', p_to_vendor_site_id);
2763: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_SITE_ID', p_from_party_site_id);
2764: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTYSITE_ID', p_to_partysite_id);
2765: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
2766: --
2767: END IF;
2768: --
2761: WSH_DEBUG_SV.log(l_module_name,'P_FROM_VENDOR_SITE_ID', p_from_vendor_site_id);
2762: WSH_DEBUG_SV.log(l_module_name,'P_TO_VENDOR_SITE_ID', p_to_vendor_site_id);
2763: WSH_DEBUG_SV.log(l_module_name,'P_FROM_PARTY_SITE_ID', p_from_party_site_id);
2764: WSH_DEBUG_SV.log(l_module_name,'P_TO_PARTYSITE_ID', p_to_partysite_id);
2765: WSH_DEBUG_SV.log(l_module_name,'P_CALLING_MODE', p_calling_mode);
2766: --
2767: END IF;
2768: --
2769: -- Clear up global table of location IDs
2795: --
2796: END IF;
2797: --
2798: IF l_debug_on THEN
2799: WSH_DEBUG_SV.log(l_module_name, 'l_fromPartyId', l_fromPartyId);
2800: WSH_DEBUG_SV.log(l_module_name, 'l_toPartyId', l_toPartyId);
2801: END IF;
2802: --
2803: -- Now call the core Vendor Merge routine to update WSH data
2796: END IF;
2797: --
2798: IF l_debug_on THEN
2799: WSH_DEBUG_SV.log(l_module_name, 'l_fromPartyId', l_fromPartyId);
2800: WSH_DEBUG_SV.log(l_module_name, 'l_toPartyId', l_toPartyId);
2801: END IF;
2802: --
2803: -- Now call the core Vendor Merge routine to update WSH data
2804: --
2814: x_return_status => l_return_status
2815: );
2816: --
2817: IF l_debug_on THEN
2818: WSH_DEBUG_SV.logmsg(l_module_name, 'After calling core vendor_merge API', WSH_DEBUG_SV.C_STMT_LEVEL);
2819: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
2820: END IF;
2821: --
2822: -- For AP, we interpret 'W' as 'S' status.
2815: );
2816: --
2817: IF l_debug_on THEN
2818: WSH_DEBUG_SV.logmsg(l_module_name, 'After calling core vendor_merge API', WSH_DEBUG_SV.C_STMT_LEVEL);
2819: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
2820: END IF;
2821: --
2822: -- For AP, we interpret 'W' as 'S' status.
2823: --
2834: p_encoded => FND_API.G_FALSE
2835: );
2836: --
2837: IF l_debug_on THEN
2838: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2839: WSH_DEBUG_SV.pop(l_module_name);
2840: END IF;
2841: --}
2842: EXCEPTION
2835: );
2836: --
2837: IF l_debug_on THEN
2838: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2839: WSH_DEBUG_SV.pop(l_module_name);
2840: END IF;
2841: --}
2842: EXCEPTION
2843: --
2845: --
2846: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2847: --
2848: IF l_debug_on THEN
2849: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
2850: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2851: END IF;
2852: --
2853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2846: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2847: --
2848: IF l_debug_on THEN
2849: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_EXCEP_LEVEL);
2850: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2851: END IF;
2852: --
2853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2854: --
2854: --
2855: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2856: --
2857: IF l_debug_on THEN
2858: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2859: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2860: END IF;
2861: --
2862: WHEN OTHERS THEN
2855: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2856: --
2857: IF l_debug_on THEN
2858: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2859: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2860: END IF;
2861: --
2862: WHEN OTHERS THEN
2863: --
2865: WSH_UTIL_CORE.ADD_MESSAGE(l_return_status, l_module_name);
2866: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_VENDOR_PARTY_MERGE_PKG.VENDOR_PARTY_MERGE',l_module_name);
2867: --
2868: IF l_debug_on THEN
2869: WSH_DEBUG_SV.log(l_module_name, 'Unexpected error', substrb(sqlerrm, 1, 200));
2870: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2871: WSH_DEBUG_SV.pop(l_module_name);
2872: END IF;
2873: --
2866: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_VENDOR_PARTY_MERGE_PKG.VENDOR_PARTY_MERGE',l_module_name);
2867: --
2868: IF l_debug_on THEN
2869: WSH_DEBUG_SV.log(l_module_name, 'Unexpected error', substrb(sqlerrm, 1, 200));
2870: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2871: WSH_DEBUG_SV.pop(l_module_name);
2872: END IF;
2873: --
2874: END Vendor_Party_Merge;
2867: --
2868: IF l_debug_on THEN
2869: WSH_DEBUG_SV.log(l_module_name, 'Unexpected error', substrb(sqlerrm, 1, 200));
2870: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2871: WSH_DEBUG_SV.pop(l_module_name);
2872: END IF;
2873: --
2874: END Vendor_Party_Merge;
2875: