河南省乡镇卫生院、社区卫生服务机构基本情况调查.doc

河南省乡镇卫生院、社区卫生服务机构基本情况调查河南省乡镇卫生院、社区卫生服务机构基本情况调查填写、录入、汇总和审核有关要求填写、录入、汇总和审核有关要求一、填写中要求一、填写中要求（一）由乡卫生院、社区卫生服务中心、社区卫生服务站指定专人负责填写，填写过程中每个数据都要力求准确，要有出处，不能估计，弄不清楚的要问相关领导和科室负责人比如第 C5 个问题“HIS 与电子健康档案系统是否互联互通” ，需要问负责健康档案录入的专业人员，问他目前健康档案能查到的信息，比如在本院以前的就诊信息，能否查得到？如果能查到，但是全部通过手工把病人的病历录入健康档案系统，则不是互联互通二）一些具体要求：（二）一些具体要求：1．组织机构代码，填写 9 位，中间的“-”省略不填，与“医疗服务月报表”里的要求是一样的2．如为固定，格式通一录成“0371-88888888”的格式，即区号+“-”+号码3．填表日期和审核日期通一录成“2012 年某月某日”或“2012-7-18”的格式，录入后统一保存成“年-月-日”的格式4．所有数字都要在英文录入装态下录入，不要在中文全角装态下录入，即半角，不能用全角两个半角相当于一个汉字的宽度。

如“123” ，不能录成“１２３” ５．软件系统开发商填写简称即可，如“郑州新益华医学科技有限公司”录成“郑州新益华”即可即“地区＋公司”的简称当然，如果你不想省事，填全名也不反对６．防火墙和ＶＰＮ设备品牌和型号，如果各有多台，且品牌多种，选一种占多数的，或者你认为贵的好的填写即可７．填写完，一定要逐一再回头看看，不能有空项和不符合逻辑的情况比如各个科室的电脑数加起来超过总数，从事医疗和人员和防保的人员合计超过全院总职工数，辖区总人口超过农业人口；“是否”或者“有无”类的问题只能填写１或２，或者１和０，您是不是填成３了？等等没有问题了，再在“填表人”处填上您的大名否则，您的错误有可能会反映到卫生局长大人那里八．审核人，一定是卫生院和社区服务中心的主要领导了，希望一定要逐一审核无误后再签字，不要太相信您的下属二、录入中要求二、录入中要求 我们设计了专门的录入文件，可从卫生厅网站上下载，是一个 excel 电子表格文件（文件名“乡卫生院社区服务机构调查录入数据库” ） ，首先，要把文件名改成您单位的名字，不一定全名，只要能与其它乡区别开即可然后，打开这个文件，您会看到跟纸质调查表界面一样的表格，里面兰色的框子就是您需要录入的东西。

录入时有些具体要求见前面的“填写具体要求” 录入完以后要反复核对（至少核对两遍） ，确保每一个兰框都不能空着，无误后即可把该文件发送给县卫生局负责汇总的同志注意：您只有改变文件名和录入数据的权利，表格已经被锁定里面只有两个数据表，一个就是跟调查表一样的“调查表录入”表，另一个是“自动生成一览表” 录入完后，您录入的调查表会在“自动生成一览表”里呈现成一行，您可以看，但不能修改如果某个数有误，可以在“调查表录入”里进行修正，然后一览表里会自动更新三、合并要求三、合并要求 各个乡、社区报送的纸质版调查表和电子版调查表都送到县区卫生局县区卫生局要有专人负责，把各卫生院、社区卫生服务中心、服务站的电子版Excel 文件合并在一起，变成一个文件上交市卫生局最终合并的文件形式跟“自动生成一览表”的形式是一样的，只是每个乡占一行，如果您的县有 30个卫生院，则这个最终文件要有 31 行，第一行是变量名称，第 2 行和第 31 行是每个乡的调查数据合并方法：第一步：先建立一个新的空 EXCEL 文件，比如名字可以是“某某县区调查数据汇总表” ，然后先把“自动生成一览表”表头（变量名称）粘贴在第一行（即第一行的内容跟各乡的表完全一样） 。

第二步：打开第一个乡的“自动手成一览表” ，选择第二行（即该乡卫生院的调查数据） ，选择“复制” 第三步：把光标放在汇总表的第二行的最左边， （不要直接粘贴，因为直接粘贴过来的只是链接公式） 然后点鼠标右键，选择“选择性粘贴” ，然后再选择“数值” ，点确定，即可第四步：按上述方法，依次把每个单位的调查一览表数据汇总在一起第五步：汇总完以后再审核，看看有没有漏报的，有没有贴错的，比如“调查日期”一栏应该都是日期，某个乡出现文字，则有可能出错了特别是单位名称，一定要以“某某市某某县区”开头，否则全省汇到一起，就分不清是哪个市县了上述先“复制” ，再“选择性粘贴” “数值”的方法，有点麻烦，但对于县级，因为调查单位较少，还可以采用如果调查单位较多，给大家介绍一种如果调查单位较多，给大家介绍一种批量导入的简便方法，详见附件批量导入的简便方法，详见附件）四、数据上交四、数据上交 县卫生局把汇总后的电子版文件，以及各乡的电子版，分别打包上交市级，市级负责卫生统计工作的同志，把各县的汇总表汇总在一个数据表里后，连同各县交来的各乡的电子版，分别打包上交省卫生厅信息中心纸质的调查表留存县级如果数据有问题，届时请县局配合核查原始调查表。

河南省卫生厅信息中心二 O 一二年七月十八日附件：把多个把多个 Excel 文件中指定工作表汇总在一个工作表中的快速方法文件中指定工作表汇总在一个工作表中的快速方法在本次调查中，各乡卫生院、社区卫生服务中心报上来的 excel 文件，如果用手工粘贴，工作量较大现介绍一种快速方法：第一步第一步：把全县（区）各乡、社区卫生服务中心（站）报上来的 excel 文件收集在一起，放置在同一个文件夹下第二步第二步：在同一文件夹下，建立一个新的 excel 文件第三步：第三步：打开新 excel 文件，按 ALt + F11 键（即先按住 Alt 键，不松手，再同时按 F11） ，自动进入“Microsoft Visual Basic 界面” ，然后在该界面的顶端菜单的“插入”里面选择“模块” ，如下图所示：第四步：打开“模块”后，在右面的空白区域，把下面红色的一段程序语句粘贴进去：Sub test()Dim MyPath$, MyName$, sh As Worksheet, t#Dim arr, brr, i&, j&, m&, n&t = TimerMyPath = ThisWorkbook.Path & “\“MyName = Dir(MyPath & “*.xls“)Application.ScreenUpdating = FalseReDim brr(1 To 100000, 1 To 130) '预定输出数组有 10 万行，20 列，设定比实际要大即可m = 1Do While MyName ThisWorkbook.Name Thenn = n + 1Set sh = GetObject(MyPath & MyName).Sheets(2)arr = sh.[a1].CurrentRegionWorkbooks(MyName).Close FalseFor j = 1 To UBound(arr, 2)brr(1, j) = arr(1, j) '设定标题NextFor i = 2 To UBound(arr)m = m + 1For j = 1 To UBound(arr, 2)brr(m, j) = arr(i, j)NextNextEnd IfMyName = DirLoopSet sh = NothingWith Sheet1.Cells.ClearContents.[a1].Resize(m, UBound(arr, 2)).Value = brrEnd WithApplication.ScreenUpdating = TrueMsgBox “汇总完成！汇总了：“ & n & “个工作表；共有：“ & m & “行数据。

& vbCr & “用时：“ & Format(Timer - t, “0.00“) & “秒“, vbInformationEnd Sub第四步：粘贴完上述程序语句后，点“运行键” ，即大功告成 “运行键”即下图中红色圈中的小三角注意：运行完，屏幕显示的还是上面的界面，您需要在任务栏里切换到excel 才能看到合并后的表如下图所示：。