641: IF l_debug_on THEN
642: --{
643: WSH_DEBUG_SV.log(l_module_name, 'l_new_location_code', l_new_location_code);
644: WSH_DEBUG_SV.log(l_module_name, 'l_loc_chg', l_loc_chg);
645: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SUPPLIER_PARTY.CREATE_HZ_PARTY_SITE',WSH_DEBUG_SV.C_PROC_LEVEL);
646: --}
647: END IF;
648: --
649: Wsh_supplier_party.create_hz_party_site(
645: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SUPPLIER_PARTY.CREATE_HZ_PARTY_SITE',WSH_DEBUG_SV.C_PROC_LEVEL);
646: --}
647: END IF;
648: --
649: Wsh_supplier_party.create_hz_party_site(
650: P_party_id => p_to_id,
651: P_location_id => p_location_id,
652: P_location_code => l_new_location_code,
653: x_party_site_id => l_to_party_site_id,
656: --
657: IF l_debug_on THEN
658: --
659: WSH_DEBUG_SV.log(l_module_name, 'x_party_site_id', l_to_party_site_id);
660: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_SUPPLIER_PARTY.CREATE_HZ_PARTY_SITE is', l_return_status);
661: --
662: END IF;
663: --
664: wsh_util_core.api_post_call(
671: --
672: -- Now create a party Site use record for the party site that we
673: -- just created above.
674: --
675: WSH_SUPPLIER_PARTY.Create_HZ_Party_Site_uses
676: (
677: P_party_site_id => l_to_party_site_id,
678: P_site_use_type => 'SUPPLIER_SHIP_FROM',
679: x_party_site_use_id => l_party_site_use_id,
789: --}
790: END IF;
791: --
792: IF l_debug_on THEN
793: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SUPPLIER_PARTY.PROCESS_HZ_CONTACT',WSH_DEBUG_SV.C_PROC_LEVEL);
794: END IF;
795: --
796: Wsh_supplier_party.Process_HZ_contact(
797: p_party_id => p_to_id,
792: IF l_debug_on THEN
793: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SUPPLIER_PARTY.PROCESS_HZ_CONTACT',WSH_DEBUG_SV.C_PROC_LEVEL);
794: END IF;
795: --
796: Wsh_supplier_party.Process_HZ_contact(
797: p_party_id => p_to_id,
798: p_party_site_id => l_to_party_site_id,
799: p_person_name => l_contact_rec.shipper_name,
800: p_phone => l_contact_rec.phone_number,
802: x_return_status => l_return_status
803: );
804: --
805: IF l_debug_on THEN
806: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_SUPPLIER_PARTY.PROCESS_HZ_CONTACT', l_return_status);
807: END IF;
808: --
809: wsh_util_core.api_post_call(
810: p_return_status => l_return_status,