Remove additional invalid codes

[FearlessNewbie]

createUKBphenome/scripts/function.createUKBphenome.r

Line 91 in dcc06c8

ICD9codes[!grepl("Block",coding),ICD9:=sapply(coding,harmonizeICD9)]

@ilarsf Some ICD9 codes starting with "Chapter" should also be removed:

valid_icd9_idx <- !grepl("^(Block|Chapter)", ICD9ukb$coding)
ICD9ukb <- ICD9ukb %>% filter(valid_icd9_idx) %>% mutate(ICD9 = sapply(coding, harmonizeICD9))

[ilarsf]

Thanks, @FearlessNewbie.
Addressed it in the commit 574bd00.