The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Vendor
( p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER :=
FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_vendor_rec IN r_vendor_rec_type,
p_vendor_id IN NUMBER
)
IS
BEGIN
--Copying values between record types
p_vendor_rec_a.vendor_id :=p_vendor_rec.vendor_id;
AP_VENDOR_PUB_PKG.Update_Vendor
( p_api_version,
p_init_msg_list,
p_commit,
p_validation_level,
x_return_status,
x_msg_count,
x_msg_data,
p_vendor_rec_a,
p_vendor_id
);
END Update_Vendor;
p_vendor_site_rec_a.LAST_UPDATE_DATE := p_vendor_site_rec.LAST_UPDATE_DATE;
p_vendor_site_rec_a.LAST_UPDATED_BY := p_vendor_site_rec.LAST_UPDATED_BY;
PROCEDURE Update_Vendor_Site
( p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER :=
FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_vendor_site_rec IN r_vendor_site_rec_type,
p_vendor_site_id IN NUMBER
)
IS
BEGIN
--Copying values between record types
p_vendor_site_rec_a.AREA_CODE := p_vendor_site_rec.AREA_CODE;
p_vendor_site_rec_a.LAST_UPDATE_DATE := p_vendor_site_rec.LAST_UPDATE_DATE;
p_vendor_site_rec_a.LAST_UPDATED_BY := p_vendor_site_rec.LAST_UPDATED_BY;
AP_VENDOR_PUB_PKG.Update_Vendor_Site
( p_api_version,
p_init_msg_list,
p_commit,
p_validation_level,
x_return_status,
x_msg_count,
x_msg_data,
p_vendor_site_rec_a,
p_vendor_site_id
);
END Update_Vendor_Site;