The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pvr.vehicle_ownership
FROM pqp_vehicle_repository_f pvr
where pvr.vehicle_repository_id = P_VEHICLE_REPOSITORY_ID
AND pvr.business_group_id = p_business_group_id
and P_EFFECTIVE_DATE between pvr.effective_start_date AND pvr.effective_end_date;
PROCEDURE UPDATE_GB_VEHICLE_ALLOCATION(P_USAGE_TYPE in VARCHAR2
,P_VEHICLE_REPOSITORY_ID in NUMBER
,P_BUSINESS_GROUP_ID in NUMBER
,P_EFFECTIVE_DATE in DATE
,P_CAPITAL_CONTRIBUTION in NUMBER default 0 --Added for the bug 10020963
,P_PRIVATE_CONTRIBUTION in NUMBER default 0) IS --Added for the bug 10020963
BEGIN
GB_VALIDATE_USAGE_TYPE (P_USAGE_TYPE, P_VEHICLE_REPOSITORY_ID, P_BUSINESS_GROUP_ID, P_EFFECTIVE_DATE, P_CAPITAL_CONTRIBUTION, P_PRIVATE_CONTRIBUTION); --Modified for the bug 10020963
END UPDATE_GB_VEHICLE_ALLOCATION;