医院信息系统数据完整性控制的计算机审计方法(数据断号)上传版概念.docVIP

医院信息系统数据完整性控制的计算机审计方法 （数据断号）目录 一、方法代码 2 二、方法名称 2 三、目标功能 2 四、审计事项 2 五、所需数据 3 六、分析步骤 4 七、流程图 5 八、方法语言 5 九、适用法规 7 十、审计建议 7 十一、作者单位 8 十二、时间 8 十三、标志 8 医院信息系统数据完整性控制的计算机审计方法（数据断号） 一、方法代码 MBAA/001 二、方法名称 医院信息系统数据完整性控制的计算机审计方法（数据断号） 三、目标功能 审计目标：检查医院信息系统数据的完整性 审计功能：通过对医院信息系统核心数据的完整性测试，检查有无在一批记录中丢失记录的现象，利用数据表中为主键的“序号”字段，且自增长为1的种子，其按1、2、3、4……的顺序递增的特性，查找具体的断号范围。 四、审计事项 其他审计方法/计算机信息系统审计/信息系统功能/业务数据处理完整性控制/数据断号 五、所需数据 医院信息系统数据完整性控制的计算机审计方法所需数据资料 序号 数据资料名称 结构化 非结构化 半结构化 1 病人费用明细表 √ （1）基础表：病人费用明细表（ZY_BRFYMXK）。数据元素：序号（xh），首页序号(syxh)，执行时间(zxrq)，操作员(czyh)，医嘱序号(yzxh)，请求序号(qqxh)，请求日期(qqrq)，病区代码(bqdm)，科室代码(ksdm)，医生代码(ysdm)，药品代码(ypdm)，药品名称(ypmc)，大项代码(dxmdm)，执行科室(zxks)，药品规格(ypgg)，药品单位(ypdw)，单位系数(dwxs)，药库系数(ykxs)，药品数量(ypsl)，药品单价(ypdj)，自费单价(zfdj)，金额(zje)，自费金额(zfje)，费用类别(fylb)，结算序号(jsxh)，记录状态(jlzt)，备注(memo)，床位代码(cwdm)，分类自付金额(flzfje)，确认科室(qrks)，主任医生(zrysdm)，主治医生(zzysdm)，打印序号(prnxh)。 六、分析步骤 步骤 内容 1 通过对医院HIS信息系统中主要表之一的病人费用明细表,检查应有收费记录数量 2 通过对医院HIS信息系统中主要表之一的病人费用明细表,检查已有收费记录数量 3 应用收费记录数量与已有收费记录数量对比分析，是否存在差异 4 对存在收费记录有差异的情况，查找具体的缺失的“序号”。 七、流程图 八、方法语言 步骤 内容 1 var sql,a,b; begin sql:=select (MAX(xh)-MIN(xh)+1) as 应有记录条数 from ZY_BRFYMXK; a:=createq(sql,-1); while qeof(a)1 do begin AddTransRslt(a,应有数据记录数量 ); b:=qmov(a,1); end; TransBatch(a,应有数据记录数量); showmsg(应有数据记录数量，已成功插入疑点); end. 2 var sql,a,b; begin sql:=select COUNT(*) as 实际记录条数 from ZY_BRFYMXK ; a:=createq(sql,-1); while qeof(a)1 do begin AddTransRslt(a,实际数据记录数量 ); b:=qmov(a,1); end; TransBatch(a,实际数据记录数量); showmsg(实际数据记录数量，已成功插入疑点); end. 3 var sql,a,b; begin sql:=select (MAX(xh)-MIN(xh)+1) as 应有记录条数,count(*) as 实际记录条数,(MAX(xh)-MIN(xh)+1)-COUNT(*) as 记录条数差异 from ZY_BRFYMXK ; a:=createq(sql,-1); while qeof(a)1 do begin AddTransRslt(a,数据差异数量 ); b:=qmov(a,1); end; TransBatch(a,数据差异数量); showmsg(数据差异数量，已成功插入疑点); end. 4 var sql,a,b; begin sql:=SELECT 断号起始, (select min(xh)-1 from ZY_BRFYMXK where xh断号起始) as 断号结束 FROM (SELECT xh+1 AS 断号起始