239: cursor c_get_extra_info
240: (cp_vehicle_allocation_id number) is
241: select pva.veh_alloc_extra_info_id
242: ,pva.object_version_number
243: from pqp_veh_alloc_extra_info pva
244: where pva.vehicle_allocation_id = cp_vehicle_allocation_id;
245: --
246: Begin
247: hr_utility.set_location('Entering:'||l_proc, 5);
270: Null;
271: End ;
272: End if;
273: --
274: -- Purge the child rows from the table pqp_veh_alloc_extra_info table
275: -- for the corresponding vehicle allocation id.
276: --
277: If p_datetrack_mode = hr_api.g_zap Then
278: Begin
277: If p_datetrack_mode = hr_api.g_zap Then
278: Begin
279: For vxi_rec in c_get_extra_info (p_rec.vehicle_allocation_id)
280: Loop
281: pqp_veh_alloc_extra_info_api.delete_veh_alloc_extra_info
282: (p_veh_alloc_extra_info_id => vxi_rec.veh_alloc_extra_info_id
283: ,p_object_version_number => vxi_rec.object_version_number
284: );
285: End Loop;