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.