forked from epinotes/InjuryEpi
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdrugs_icd10cm_WA_2015.Rmd
121 lines (67 loc) · 2.38 KB
/
drugs_icd10cm_WA_2015.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
---
title: "WA 2015 Drug Overdose Hospitalization"
author: "Mamadou Ndiaye, Epidemiologist, WA DOH"
output:
html_document: default
html_notebook: default
css: tufte2.css
---
```{r, echo=F,message=FALSE, warning=FALSE}
library(tidyverse)
library(haven)
library(forcats)
library(caret)
library(Hmisc)
library(purrr)
library(knitr)
library(pander)
library(injuryepi)
load("Y:/Confidential/HSQA/CHS/IVP-Epi/CHARS/.R_Cache/chars_pub2015diag_q4@.RData")
load("Y:/Confidential/HSQA/CHS/IVP-Epi/CHARS/.R_Cache/chars_pub2015diag_f@.RData")
# SOAR::Attach()
options(scipen = 12)
knitr::opts_chunk$set(
echo = TRUE,
comment = NA,
message = FALSE,
error = FALSE)
```
## Finding All Drug Overdose
Based on the ICD-9 CM and ICD-10 CM (fourth quarter) in the principal diagnosis
The results by quarters:
```{r}
pander(filter(chars_pub2015diag_f, drugs == 1) %>% group_by(quarters) %>% count,justify = "left")
```
## Finding All Opioid Overdose
### Opioid Principal Diagnosis Only
Count of opioid as main diagnosis by quarters:
```{r, echo=F}
pander(filter(chars_pub2015diag_f, opioid == 1) %>% group_by(quarters) %>% count,justify = "left")
```
### Opioid As any Diagnosis
Count of opioid as any diagnosis by quarters:
```{r, echo=F}
pander(filter(chars_pub2015diag_f, opioid_m == 1) %>% group_by(quarters) %>% count,justify = "left")
```
## Finding Non- Heroin Opioid Overdose
### Non- Heroin Principal Diagnosis Only
Count of Non-Heroin opioid as main diagnosis by quarters:
```{r, echo=F}
pander(filter(chars_pub2015diag_f, opioid_nh == 1) %>% group_by(quarters) %>% count,justify = "left")
```
### Non-Heroin Opioid As any Diagnosis
Count of non-heroin opioid as any diagnosis by quarters:
```{r, echo=F}
pander(filter(chars_pub2015diag_f, opioid_nh_m == 1) %>% group_by(quarters) %>% count,justify = "left")
```
## Finding All Heroin Overdose
### heroin Principal Diagnosis Only
Count of heroin as main diagnosis by quarters:
```{r, echo=F}
pander(filter(chars_pub2015diag_f, heroin == 1) %>% group_by(quarters) %>% count,justify = "left")
```
### heroin As any Diagnosis
Count of heroin as any diagnosis by quarters:
```{r, echo=F}
pander(filter(chars_pub2015diag_f, heroin_m == 1) %>% group_by(quarters) %>% count,justify = "left")
```