Origin station activity code not read - more non-public services leak into output

[oweno-tfwm]

root cause is names(LO) <- c( "Record Identity", "Location", "Suffix", "Scheduled Departure Time", "Public Departure Time", "Platform", "Line", "Engineering Allowance", "Pathing Allowance", "Pathing Allowance", "Performance Allowance", "Spare" )

note duplication of "pathing allowance" ...should be

names(LO) <- c( "Record Identity", "Location", "Suffix", "Scheduled Departure Time", "Public Departure Time", "Platform", "Line", "Engineering Allowance", "Pathing Allowance", "Activity", "Performance Allowance", "Spare" )

and then further code to process the Activity field - have a fix for it but it's mixed in with a bucket load of other changes.