This is a function to get Taiwan Health Insurance drug code(NHINo) via Chang Gung Medical Hospital drug code(RCFNo)

getNHINoViaRCFNo(df, RCFNoColName = RCFNO)

Arguments

df

data.frame, the specific hospital drug code

RCFNoColName

a colum name for RCFNo of df

Value

A new data.table with following columns.

CGMH_CODE Chang Gung Medical Hospital drug code RCFNo

NHINO1 drug NHINo

Details

User can input the specific hospital drug code If there is no corresponed NHINo, then display NA.

Examples

# sample of getting NHINo via RCFNo of Chang Gung Medical Hospital. head(getNHINoViaRCFNo(df = sample_taiwan_drug, RCFNoColName = CGMH_CODE))
#> Error in df %>% select(RCFNO1) %>% as.data.table(): 沒有這個函數 "%>%"