data/diseasecode.R

In tagteam/heaven: Data Preparation Routines for Medical Registry Data

### dcode.R --- 
#----------------------------------------------------------------------
## Author: Thomas Alexander Gerds
## Created: Nov  4 2018 (08:42) 
## Version: 
## Last-Updated: Nov  5 2018 (07:34) 
##           By: Thomas Alexander Gerds
##     Update #: 5
#----------------------------------------------------------------------
## 
### Commentary: 
## 
### Change Log:
#----------------------------------------------------------------------
## 
### Code:
#' @export 
diseasecode <- list(af=c("DI48","42793", "42794"),rheumvalve=c(as.character(c(39400, 39401, 39402, 
                                                                              39408, 39409, 39500, 39501, 39502, 39508, 39509, 39600, 39601, 39602, 39603, 39604, 39608, 39609,
                                                                              99751, 4240, 4241)),paste0('D',c('Z952','Z954','I05','I06','I080A','I081A','I082A','I083A'))),
                    dvtpe=paste('DI',as.character(c(801:803,808,809,821:823,828,829,26)),sep=''),
                    stroketci=c(as.character(c(43309, 43399, 43409, 43499, 43600, 43601, 43609, 43690, 43699, 43700,
                                               43701, 43708, 43709, 43790, 43791, 43798, 43799, 43809, 43899, 43509, 43599)),
                                paste0('D',c('I63','I64','G458','G459'))),
                    bleeding=c(as.character(c(85200, 85201, 85202, 85203, 85209, 85210, 85211, 85212, 85290, 85291, 
                                              85292, 43008, 43009, 43098, 43099, 43100, 43101, 43108, 43109, 43190,
                                              43191, 43198, 43199, 28000, 45601, 53098, 53190, 53192, 53195, 53290, 
                                              53390, 53490, 53501, 56319, 56904, 56915)),paste0('D',
                                                                                                c('I60','I61','I62','I312','N02','R31','R04','H313','H356','H431','H450','H052A','K228F','K250',
                                                                                                  'K252','K254','K256','K260','K262','K264','K266','K270','K272','K274','K276','K280','K282',
                                                                                                  'K284','K286','K290','K298A','K625','K638B','K638C','K661','K838F',
                                                                                                  'K868G','K920','K921','K922','KI850','I864A','S064','S065','S066','G951A','S368D','J942','D500'
                                                                                                 ,'D62'))),
                    cardiomyopathy='DI42',
                    lungedema='DJ81',
                    hf=c('DI42','DI50','DI110','DJ81',as.character(c(42599, 42709, 42710, 42711, 42719))),
                    ihd=c(paste('DI',as.character(c(20:25)),sep=''),as.character(c(41009, 41099, 41109, 41199, 41209,
                                                                                   41299, 41309, 41399, 41409, 41499))),
                    mi=c('DI21','DI22',as.character(c(41009, 41099))),
                    pad=c('DI70',as.character(c(44009, 44019, 44020, 44021, 44028, 44029, 44030, 44039, 44099))),
                    cancer=c(paste0('DC0',0:9),paste0('DC',10:97),as.character(c(109:140))),
                    ckd=c(paste0('D',c('N02','N03','N04','N05','N06','N07','N08','N11','N12','N14',
                                       'N18','N19','N26','N158','N159','N160','N162','N163','N164','N168','Q61',
                                       'E102','E112','E132','E142','I120','M321B','Q612','Q613','Q615','Q619')),
                          as.character(c(24902, 25002,58200,
                                         58201, 58202, 58208, 58209, 58300, 58301, 58302, 58308, 58309, 58499, 
                                         59009, 59320, 75310, 75311, 75319, 79299, 40399, 40499, 44609, 44629))),
                    copd=c('DJ42','DJ43','DJ44',as.character(c(49100, 49101, 49102, 49103, 49104, 49108, 49109, 49200,
                                                               49201, 49208, 49209))),
                    liver=c(paste0('D',c('B15','B16','B17','B18','B19','C22','K70','K71','K72','K73','K74',
                                         'K75','K76','K77','Z944','I982','D684C','Q618A')),
                            as.character(c(15509, 15519, 15589, 45600, 45601, 57109, 57110, 57111, 57119, 
                                           57190, 57191, 57192, 57193, 57194, 57199, 57200, 57201, 57209, 
                                           57300, 57301, 57302, 57303, 57304, 57305, 57309))),
                     
                         alcohol=c(paste0('D',c('F10','K70','E52','T51','K860','E244','G312','I426','O354','Z714','Z721',
                                                'G621','G721','K292','L278A')),'E8609',
                                   as.character(c(97909, 97919, 97929, 97939, 97949, 97959, 98009, 98019, 98029,
                                                  98099, 29109, 29119, 29129, 29139, 29199, 30309, 30319, 30320, 30328,
                                                  30329, 30390, 30391, 30399, 57710, 57109, 57110))),
                         dm=c(paste0('DE',10:14),'250'),
                         ht_diag=c(paste0('DI',10:15),as.character(c(40009, 40019, 40029, 40039, 40099, 40199, 40299,
                                                                     40399, 40499))),
                         ulcus=c(paste0('DK',25:27),as.character(c(53100,53101,53108,53109,53190,53191,53192,53193,53194,
                                                                   53195,53196,53198,53199,53209,53290,53291,53299,53309,
                                                                   53390,53391,53399,53409,53490,53491,53499))),
                         acetylsalicylic_acid=c("B01AC06","N02BA01"),
                         asappi=c("B01AC56"),amiodarone="C01BD01",
                         betablockers=c("C07A","C07B","C07C","C07D","C07F"),class_ic_antiarrytmic_drugs="C01BC",
                         cardiac_glycosides="C01A",
                         diu=c("C02DA", "C02L", "C03A", "C03B", "C03D", "C03E", "C03X", "C07B", "C07C", "C07D", "C07F", "C08G", "C09BA", "C09DA", "C09XA52"),
                         dronedarone="C01BD07",
                         diabetes="A10",
                         ht_med=c("C02A", "C02B", "C02C", "C02DA", "C03A", "C03B", "C03D", "C03E", "C03X", "C02DB", "C02DD", "C02DG", "C07A", "C08", "C09AA", "C09XA02",
                                  "C09CA", "C07B","C07C", "C07D", "C07F", "C08G", "C09BA", "C09DA", "C09XA52", "C02L", "C09BB", "C09DB"),
                         loop_diu="C03C",
                         nsaid="M01A",
                         ras=c("C09AA", "C09BA", "C09BB", "C09CA", "C09DA", "C09DB", "C09XA02", "C09XA52"),
                         statins="C10AA",
                         vka=c("B01AA03", "B01AA04"),
                         xa_inhibitors=c("B01AF02", "B01AF03", "B01AF01"),
                         thrombin_inhibitors="B01AE07",
                         adp_inhibitors=c("B01AC04", "B01AC22", "B01AC24"))


######################################################################
### dcode.R ends here