关于血站频繁采血及血液报废率统计的审查方法Word格式.docx

关于血站频繁采血及血液报废率统计的审查方法Word格式.docx

《关于血站频繁采血及血液报废率统计的审查方法Word格式.docx》由会员分享，可在线阅读，更多相关《关于血站频繁采血及血液报废率统计的审查方法Word格式.docx（11页珍藏版）》请在冰豆网上搜索。

非结构化

半结构化

1

献血人信息

√

2

待检库报废

3

过程原因

４

血液名称

5

血站业务统计报表

审计人员采集的业务数据来源于《现代血站标准化管理系统》，所需数据主要有：

（1）基础表：

献血人信息。

数据元素：

献血码、血员码、姓名、血型、RH血型、性别、出生日期、证件号码、家庭住址、所属单位、采血日期、体检结果、采血方式、血量、检验结果。

（2）基础表：

待检库报废。

报废时间、献血码、血员码、血型、RH血型、产品码、报废原因、报废人、经手人、审核人、销毁状态、报废地点、血站代码报废血量。

（3）基础表：

过程原因。

原因代码、过程简称。

（4）基础表：

血液名称。

成份码、血液简称、血液全称。

六、分析步骤

步骤一：

采集并导入数据。

被审计单位计算机管理人员通过登陆现代血站标准化管理系统、将所需的税收原始凭证明细以Excel表格格式或txt格式导出、审计人员将数据拷贝后导入AO。

步骤二：

查询两次血液采集时间间隔小于规定时间的数据，生成疑点。

将献血人信息表以采血方式为条件对同一人前后两次采血时间间隔进行分类统计，查询出违反规定频繁采血的数据疑点。

步骤三：

生成年度报废血量明细表。

将待检库报废表与血液简称表、过程原因表关联，并以血液简称、原因简称为条件，分类汇总年度各血液成分的报废明细量。

步骤四：

换算计量单位，生成报废血量总表。

根据各种血液成分的计价单位和标准对报废血量进行单位转换，并根据原因简称汇总生成新的报废血量总表。

步骤五：

统计非正常原因血液报废量，并生成疑点。

按规定设置相关条件，筛选出非正常原因造成的血液报废量，并生成疑点数据供审计人员查实。

七、流程图

八、方法语言

1--1.查询前后两次血液采集时间间隔小于规定时间的数据，并生成疑点。

varCXYJ,cxjg,IsEmpty;

//定义变量CXYJ:

查询语句,CXJG:

查询结果,IsEmpty:

是否为空

begin

CXYJ:

='

selectdistincta.血员码,a.姓名,a.性别,a.出生日期,a.家庭住址,a.献血码,

+'

a.血型,a.RH血型,a.体检结果,a.采血日期,b.采血日期,b.采血方式,b.献血码,'

a.采血方式,a.采血量,a.检验结果'

fromdbo.献血人信息asajoindbo.献血人信息asb'

ona.血员码=b.血员码anda.献血码<

>

b.献血码'

whereDATEDIFF（day,a.采血日期,b.采血日期）<

180andDATEDIFF（day,a.采血日期,b.采血日期）>

0anda.采血日期>

'

2010-1-100:

00:

000'

'

anda.采血方式like'

%全血%'

andb.采血方式like'

+'

union'

selectdistincta.血员码,a.姓名,a.性别,a.出生日期,a.家庭住址,a.献血码,'

14andDATEDIFF（day,a.采血日期,b.采血日期）>

%机采%'

;

CXJG:

=Createq（CXYJ,-1）;

//查询结果集是否为空

IsEmpty:

=qeof（CXJG）;

ifIsEmpty#1then

begin

//利用循环将查询结果放入业务临时库

repeat

AddTransRslt（CXJG,'

频繁采血数据疑点'

）;

=qmov（CXJG,1）;

untilIsEmpty=1;

//将临时库结果集放入疑点库

TransBatch（CXJG,'

频繁采血疑点审查'

ShowMsg（'

频繁采血疑点已保存至未落实疑点库中，请核对！

end

else

没有频繁采血的记录！

end.//程序结束

2-1生成报废血量明细表

varCXYJ;

//定义变量CXYJ:

查询语句

begin

selectc.原因简称,b.血液简称,sum（报废血量）as报废血量

from（SELECTyear（报废时间）as年度,报废原因,left（产品码,5）as产品码,sum（报废血量）as报废血量'

fromdbo.待检库报废'

where报废时间<

2012-12-3123:

59:

59.000'

and报废时间>

2012-1-100:

groupby报废时间,报废原因,产品码）asa'

leftjoindbo.血液名称asbona.产品码=b.成分码'

leftjoindbo.过程原因ascona.报废原因=c.原因代码'

groupbyb.血液简称,c.原因简称'

CreateTempTable（'

报废血量明细表2012'

CXYJ）;

AddTable（'

showmsg（'

报废血量明细表2012成功！

end.

2--2换算计量单位，生成报废血量总表

select原因简称,换算血量=sum（cast（casewhen血液简称like'

%血浆'

then报废血量/100'

when血液简称like'

%全血'

then报废血量/200else报废血量endasnumeric（8,2）））'

from报废血量明细表2012'

groupby原因简称'

报废血量总表2012'

报废血量总表2012成功！

2--3统计非正常原因血液报废量，并生成疑点。

select原因简称,非正常报废量=sum（cast（casewhen原因简称like'

不足量'

OR原因简称like'

过期'

or原因简称like'

凝块'

OR原因简称like'

破损'

渗漏'

渗血'

脂肪血'

离心破损'

then换算血量else0endasnumeric（8,2）））'

fromdbo.报废血量总表2012'

orderby2desc'

CXJG:

非正常报废疑点'

非正常报废疑点审查'

非正常报废疑点已保存至未落实疑点库中，请核对！

没有非正常报废的记录！

九、适用法规

（一）《中华人民共和国献血法》第九条“……血站对献血者每次采集血液量一般为二百毫升，最多不得超过四百毫升，两次采集间隔期不少于六个月。

严格禁止血站违反前款规定对献血者超量、频繁采集血液。

”

（二）《中华人民共和国献血法》第十六条“医疗机构临床用血应当制定用血计划，遵循合理、科学的原则，不得浪费和滥用血液。

十、审计建议

（一）推进规范化、精细化内部管理，完善现有血液质量控制规程。

加强对血液初检、复检和筛查，成品库出库遵循“先进先出”原则，加强对血液报废率的控制，强化考核，明确责任，进一步提高血液利用率和合格率。

（二）健全献血者信息档案，加强信息化建设和监督工作，保证血液质量和安全。

十一、作者单位

*****

十二、时间

****

十三、标志

B（批量执行）