System.ArgumentOutOfRangeException: 索引和长度必须引用该字符串内的位置。 参数名: length 在 System.String.Substring(Int32 startIndex, Int32 length) 在 zhuanliShow.Bind()
【技术实现步骤摘要】
本专利技术涉及数据校验,特别涉及基于电子表格的数据录入一致性校验方法、装置及及存储介质。
技术介绍
1、基本公共卫生服务重点人群健康体检是国家提供健康服务的一项重要内容,每年社区卫生服务中心需要为辖区内的重点人群提供一次免费的健康体检服务,并将检验结果录入对应的居民健康档案系统。录入检验数据也就成了健康体检中的重要组成部分。
2、现有技术中,检验数据的录入有2种方法,一种是人工将纸质检验结果一个个录入档案系统;另外一种是利用居民身份证或者体检编号等作为唯一标识进行数据匹配,将实验室提供的检验结果数据,以excel表的格式导入档案系统里面,实现批量录入。但无论是人工录入或者批量录入方式,都可能因为操作失误,如错录,漏录,信息匹配错误,日期匹配错误等问题,导致录入档案系统里面的检验数据与实际实验室提供的数据不一致。与此同时由于居民健康档案系统是运行多人进行查看、修改和使用等操作的,可能因为人工操作失误,导致录入居民健康档案系统的检验数据与实际检验数据结果不一致。目前并没有专门开发针对这一问题进行一致性核查的工具,主要还是依赖人工肉眼核查的方式将纸质检验单结果与系统录入数据进行一对一比对,因此,我们提供基于excel的电子表格工具和校验方法,实现实验室检验数据与档案系统录入检验数据的一致性质控验证,以提高数据处理效率和准确性。
技术实现思路
1、本专利技术提供基于电子表格的数据录入一致性校验方法、装置及存储介质,实现实验室检验数据与档案系统录入检验数据的一致性质控验证,以提高
2、第一方面,本专利技术提供了基于电子表格的数据录入一致性校验方法,包括步骤:
3、(1)数据导入,从实验室信息系统和档案管理系统中批量导入检验数据;
4、(2)数据校验,利用excel公式、vba编程或者比对函数进行数据比对并汇总问题数据;
5、(3)结果展示与报告生成,通过可视化方式将数据校验结果进行展示,并根据汇总的问题数据生成数据校验报告。
6、优选地,步骤(1)中,还包括数据格式解析,将导入的不同数据格式的数据进行识别并将检验数据自动设置为数字格式。
7、优选地,步骤(1)中,通过宏提取检验数据并按照自定义的实验室检验数据与体检表检验数据的名称,生成匹对列的检验数据名称;
8、具体程序为:
9、sub提取检验数据并修改检验数据名称()
10、dimiasinteger,jasinteger,kasinteger,shtw1asworksheet,shtw2asworksheet,edrow1aslong,edrow2aslong
11、edrow1=worksheets("检验数据名称修改").range("a1048576").end(xlup).row
12、edrow2=worksheets("检验数据一致性核查").range("a1048576").end(xlup).row
13、worksheets("检验数据一致性核查").rows("2:"&edrow2).delete
14、worksheets("实验室数据").columns("a:g").copy worksheets("检验数据一致性核查").columns("a:g")
15、worksheets("实验室数据").columns("k:k").copy worksheets("检验数据一致性核查").columns("h:h")
16、worksheets("实验室数据").columns("z:ab").copy worksheets("检验数据一致性核查").columns("i:k")
17、worksheets("实验室数据").columns("ay:ay").copy worksheets("检验数据一致性核查").columns("l:l")
18、for i=2to edrow2'一致性
19、ifworksheets("检验数据一致性核查").cells(i,13)=""then
20、forj=2to edrow1
21、if worksheets("检验数据一致性核查").cells(i,12)=worksheets("检验数据名称修改").cells(j,2)then
22、worksheets("检验数据一致性核查").cells(i,13)=worksheets("检验数据名称修改").cells(j,3)
23、end if
24、nextj
25、else
26、end if
27、next i
28、for i=2to edrow2
29、ifworksheets("检验数据一致性核查").cells(i,13)=""then
30、worksheets("检验数据一致性核查").cells(i,13)=worksheets("检验数据一致性核查").cells(i,12)
31、end if
32、next i
33、msgbox"检验数据提取完成"
34、end sub。
35、优选地,步骤(2)中,还包括自定义比对规则,允许用户根据实际需要自定义实验室检验数据与基卫系统中检验数据的名称,方便检验数据的匹配比对;比对规则通过excel公式、vba编程或者比对函数来实现校验比对。
36、优选地,步骤(2)中,通过比对函数来实现检验比对,比对函数为:=if(xlookup($g6,档案系统体检表数据!$c:$c,档案系统体检表数据!$c:$c,1,0)=1,"未查到体检表",if(and($m6=o$1,($b6-xlookup($g6,档案系统体检表数据!$c:$c,档案系统体检表数据!$a:$a,"",0))<3,($b6-xlookup($g6,档案系统体检表数据!$c:$c,档案系统体检表据!$a:$a,"",0))>-3,not(countif(xlookup($g6,档案系统体检表数据!$c:$c,档案系统体检表数据!er:er,1,0),$i6))),$m6&"结果不一致",""))。
37、优选地,步骤(2)中,汇总问题函数为:=if(o6="未查到体检表",o6,textjoin("",true,o6:af6))。
38、优选地,步骤(3)中,可视化展示方法包括:excel图表、条件格式和使用不同颜色标记差异项和异常值。
39、第二方面,本专利技术提供了实现基于电子表格的数据录入一致性校验方法的系统,包括:
40、数据导入模块,用于将实验室信息系统导出的检验数据和档案管理系统导出的原始检验数据导入本文档来自技高网...
【技术保护点】
1.基于电子表格的数据录入一致性校验方法,其特征在于,包括步骤:
2.根据权利要求1所述的基于电子表格的数据录入一致性校验方法,其特征在于,步骤(1)中,还包括数据格式解析,将导入的不同数据格式的数据进行识别并将检验数据自动设置为数字格式。
3.根据权利要求1所述的基于电子表格的数据录入一致性校验方法,其特征在于,步骤(1)中,通过宏提取检验数据并按照自定义的实验室检验数据与体检表检验数据的名称,生成匹对列的检验数据名称;具体程序为:
4.根据权利要求1所述的基于电子表格的数据录入一致性校验方法,其特征在于,步骤(2)中,还包括自定义比对规则,允许用户根据实际需要自定义实验室检验数据与基卫系统中检验数据的名称,方便检验数据的匹配比对;比对规则通过Excel公式、VBA编程或者比对函数来实现校验比对。
5.根据权利要求1所述的基于电子表格的数据录入一致性校验方法,其特征在于,步骤(2)中,通过比对函数来实现检验比对,比对函数为:=IF(XLOOKUP($G6,档案系统体检表数据!$C:$C,档案系统体检表数据!$C:$C,1,0)=1
6.根据权利要求5所述的基于电子表格的数据录入一致性校验方法,其特征在于,步骤(2)中,汇总问题函数为:=IF(O6="未查到体检表",O6,TEXTJOIN("",TRUE,O6:AF6))。
7.实现权利要求1-5任一所述的基于电子表格的数据录入一致性校验方法的系统,其特征在于,包括:
8.根据权利要求7所述的实现基于电子表格的数据录入一致性校验方法的系统,其特征在于,还包括:
9.基于电子表格的数据录入一致性校验装置,其特征在于,包括:存储器及处理器,所述存储器存储有计算机程序,所述计算机程序被所述处理器执行时实现权利要求1-5任一所述的基于电子表格的数据录入一致性校验方法的步骤。
10.一种计算机存储介质,其特征在于,其上存储计算机指令,当所述计算机指令在终端上运行时,使得所述终端执行如权利要求1-5任一所述的基于电子表格的数据录入一致性校验方法。
...【技术特征摘要】
1.基于电子表格的数据录入一致性校验方法,其特征在于,包括步骤:
2.根据权利要求1所述的基于电子表格的数据录入一致性校验方法,其特征在于,步骤(1)中,还包括数据格式解析,将导入的不同数据格式的数据进行识别并将检验数据自动设置为数字格式。
3.根据权利要求1所述的基于电子表格的数据录入一致性校验方法,其特征在于,步骤(1)中,通过宏提取检验数据并按照自定义的实验室检验数据与体检表检验数据的名称,生成匹对列的检验数据名称;具体程序为:
4.根据权利要求1所述的基于电子表格的数据录入一致性校验方法,其特征在于,步骤(2)中,还包括自定义比对规则,允许用户根据实际需要自定义实验室检验数据与基卫系统中检验数据的名称,方便检验数据的匹配比对;比对规则通过excel公式、vba编程或者比对函数来实现校验比对。
5.根据权利要求1所述的基于电子表格的数据录入一致性校验方法,其特征在于,步骤(2)中,通过比对函数来实现检验比对,比对函数为:=if(xlookup($g6,档案系统体检表数据!$c:$c,档案系统体检表数据!$c:$c,1,0)=1,"未查到体检表",if(and($m6=o$1,($b6-xlookup($g6,档案系统体检表数据!$c:$c,档案系统体检表数据!$a:$a,"",...
【专利技术属性】
技术研发人员:陈燕燕,由娜,邓利佳,
申请(专利权)人:广州市番禺区东环街社区卫生服务中心,
类型:发明
国别省市:
还没有人留言评论。发表了对其他浏览者有用的留言会获得科技券。