R/funPharm.R
, R/getNHINoViaRCFNo.R
getNHINoViaRCFNo.Rd
This is a function to get Taiwan Health Insurance drug code(NHINo) via Chang Gung Medical Hospital drug code(RCFNo)
getNHINoViaRCFNo(df, RCFNoColName = RCFNO)
df | data.frame, the specific hospital drug code |
---|---|
RCFNoColName | a colum name for RCFNo of df |
A new data.table with following columns.
CGMH_CODE
Chang Gung Medical Hospital drug code RCFNo
NHINO1
drug NHINo
User can input the specific hospital drug code
If there is no corresponed NHINo, then display NA
.
# 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(): 沒有這個函數 "%>%"