我对如何检查某些诊断是否属于R的ICD-10范围有疑问。
这是我的诊断代码: C349 A219 B003 C509 B700 A090
这是我想比较的标准ICD-10范围: C01.0-C17 A74.8-A75.9 B00.1-B33.1 B69-B72.0 C00.0-C94.2
我试图将字符串拆分为值,但是由于它们仍然不是数字,所以无法对其进行比较。
谢谢!
姚
答案 0 :(得分:1)
icd旨在解决这种问题。 ICD-10代码的范围很困难,因为与ICD-9代码相比,它们的数量太多了。此外,世界卫生组织或美国临床修改都没有ICD-10代码C01.0。考虑到这一点:
var myChart = new Chart(canvas, {
type: 'line',
showLine: true,
data: {
datasets: [
{
xAxisID: 'dates',
data: self.data[self.config.Pins[1]],
fill:true,
borderColor: '#2196f3', // Add custom color border (Line)
backgroundColor: '#2196f3',
//borderWidth: 1,// Specify bar
}
]
},
options: {
legend: { display: false, },
responsive: true,
elements: {
line: {
tension: 0, // disables bezier curves
}
},
scales: {
xAxes: [{
id: 'dates',
type: 'time',
distribution: 'linear',
scaleLabel: {
display: true,
labelString: 'Water Usage, gallons'
},
time: {
unit: 'minute'
},
bounds: 'data',
ticks: {
display: false ,
maxRotation: 90,
source: 'data',
maxTicksLimit: self.data[self.config.Pins[1]].length, },
}],
yAxes: [{
display: true,
scaleLabel: {
display: true,
labelString: 'used'
},
ticks: {
beginAtZero: true,
source: 'data',
min: 0,
//max: self.data[self.config.Pins[1]].length,
},
}]
},
}
});
我建议尝试与带或不带小数位的ICD代码保持一致。我更喜欢放下它们。
如果您使用的是非WHO或非ICD-10-CM的代码,则仍可以使用ICD,但请务必检查是否正确解决了C01.0之类的差异。在某些情况下,这可能意味着手动输入代码范围内的代码。 @thelatemail是正确的,您在扩展范围时必须非常小心,不要通过“父”代码进行扩展,因此范围超出了计划。 library(icd)
diagnoses <- c("C349", "A219", "B003", "C509", "B700", "A090")
one_pt <- data.frame(id = rep("patient1", length(diagnoses)),
diagnoses)
dif_pt <- data.frame(id = paste0("patient", seq_along(diagnoses)),
diagnoses)
my_map <- list(c01to17 = icd::expand_range("C01", "C17"),
a74to75 = icd::expand_range("A748", "A759"),
b00to33 = icd::expand_range("B001", "B331"),
b69to72 = icd::expand_range("B69", "B72"),
c00to94 = icd::expand_range("C000", "C942"))
icd::comorbid(one_pt, map = my_map)
icd::comorbid(dif_pt, map = my_map)
中的范围扩展代码对此非常谨慎。