Accidental generation of nonexistent phecodes

[FearlessNewbie]

createUKBphenome/scripts/function.createUKBphenome.r

Lines 110 to 111 in dcc06c8

	pcodes <- unique(c(icd9key$phecode,gsub("\\..+","",icd9key$phecode),gsub("(\\..).","\\1",icd9key$phecode)))
	pcodes <- sort(pcodes)

Restrict phecode creation to known valid phecodes to avoid generating nonexistent parent codes (e.g., 305):

pcodes_raw <- unique(c(icd9key_master$phecode, gsub("\..+", "", icd9key_master$phecode), gsub("(\..).", "\1", icd9key_master$phecode)))
pcodes <- sort(intersect(pcodes_raw, unique(pheinfo$phecode)))