The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE : Update_AddressInfo
PURPOSE : This procedure updates the location information
---------------------------------------------------------------*/
PROCEDURE UPDATE_ADDRESSINFO
(
P_CARRIER_PARTY_ID IN NUMBER,
P_SITE_NUMBER IN VARCHAR2,
P_STATUS IN VARCHAR2,
P_PARTY_SITE_ID IN NUMBER,
P_LOCATION_ID IN NUMBER,
P_ADDRESS1 IN VARCHAR2,
P_ADDRESS2 IN VARCHAR2,
P_ADDRESS3 IN VARCHAR2,
P_ADDRESS4 IN VARCHAR2,
P_CITY IN VARCHAR2,
P_STATE IN VARCHAR2,
P_PROVINCE IN VARCHAR2,
P_POSTAL_CODE IN VARCHAR2,
P_COUNTRY IN VARCHAR2,
P_COUNTY IN VARCHAR2,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_EXCEPTION_MSG OUT NOCOPY VARCHAR2,
X_POSITION OUT NOCOPY NUMBER,
X_PROCEDURE OUT NOCOPY VARCHAR2,
X_SQLERR OUT NOCOPY VARCHAR2,
X_SQL_CODE OUT NOCOPY VARCHAR2
)
is
l_site_rec HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE;
select object_version_NUMBER
from hz_party_sites
where party_site_id = p_party_site_id;
select object_version_number
from hz_locations
where location_id = p_location_id;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_ADDRESSINFO';
l_procedure := 'Calling TCA API Update_Party_site';
WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_PARTY_SITE_V2PUB.Update_Party_Site',WSH_DEBUG_SV.C_PROC_LEVEL);
HZ_PARTY_SITE_V2PUB.Update_Party_Site
(
p_init_msg_list => FND_API.G_TRUE,
p_party_site_rec => l_site_rec,
p_object_version_number => l_site_object_number,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
l_procedure := 'Calling TCA API Update_Location';
WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_LOCATION_V2PUB.Update_Location',WSH_DEBUG_SV.C_PROC_LEVEL);
HZ_LOCATION_V2PUB.Update_Location
(
p_init_msg_list => FND_API.G_TRUE,
p_location_rec => l_loc_rec,
p_object_version_number => l_location_object_number,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
END UPDATE_ADDRESSINFO;