####第二批肿瘤数据
#mentedata_basic 患者基本信息 #mentedata 患者就诊明细表
mentedata_basic=read.csv("C:\\Users\\lenovo\\Desktop\\20170904\\mente_basic.csv",header=TRUE)
f_mente=function(file){
return(read.csv(file=file,header=TRUE))
}
mentedata=data.frame("就诊流水号"=c(),"项目明细"=c(),"数量"=c(),"金额"=c(),year=c())
#mentedata2009=read.csv("C:\\Users\\lenovo\\Desktop\\20170904\\肺癌患者特门明细2009.csv",header=TRUE)
for(i in 2009:2016){
file=paste0("C:\\Users\\lenovo\\Desktop\\20170904\\肺癌患者特门明细",i,".csv")
mentedata_temp=f_mente(file)
mentedata_temp$year=i
mentedata=rbind(mentedata,mentedata_temp)
}
rm(i);rm(file);rm(mentedata_temp)
zhuyuandata_basic=read.csv("C:\\Users\\lenovo\\Desktop\\20170904\\zhuyuan_basic.csv",header=TRUE)
zhuyuandata=data.frame("就诊流水号"=c(),"项目明细"=c(),"数量"=c(),"金额"=c(),year=c())
for(i in 2009:2016){
file=paste0("C:\\Users\\lenovo\\Desktop\\20170904\\肺癌患者住院明细",i,".csv")
zhuyuandata_temp=f_mente(file)
zhuyuandata_temp$year=i
zhuyuandata=rbind(zhuyuandata,zhuyuandata_temp)
}
rm(i);rm(file);rm(zhuyuandata_temp)
#####合并门特和住院
data=rbind(zhuyuandata,mentedata)
data_basic=rbind(zhuyuandata_basic,mentedata_basic)
data_basic$个人序号=paste0(data_basic$个人序号)
##
id=unique(data_basic$个人序号)
###
library(RODBC)
conn=odbcConnect('jiaming',uid='sa',pwd='jiankun')
#保存基本信息
sqlSave(conn,data_basic,tablename='secondTumordatabasic')
sqlSave(conn,data,tablename='secondTumordatadetail')
sqlSave(conn,subdata,tablename='secondTumor')
odbcClose()
####合并data 和data_basic
subdata=merge(data_basic,data,by="就诊流水号")
names(data_basic)
names(data)
###############################
data_sta=read.csv('C:\\Users\\lenovo\\Desktop\\20170904\\合并门特和住院.csv')
datamente_sta=read.csv('C:\\Users\\lenovo\\Desktop\\20170904\\门特情况.csv')
datazhuyuan_sta=read.csv('C:\\Users\\lenovo\\Desktop\\20170904\\住院情况.csv')
id_sta=unique(data_sta$个人序号)
#setdiff(id,id_sta)
id_intersect=intersect(unique(datazhuyuan_sta$个人序号),unique(datamente_sta$个人序号))
sqlSave(conn,data_sta,tablename = 'secondTumordata_sta')
