临时医疗救助资金管理使用合规性的计算机审计方法

1、临时医疗救助资金管理使用合规性的计算机审计方法一、方法代码二、方法名称临时医疗救助资金管理使用合规性的计算机审计方法三、目标功能审计目标：临时医疗救助金对贫困家庭解决或缓解医疗困难发挥了积极作用，审计组通过采集临时医疗救助实施部门发放业务数据（慈善总会、红十字会），发现是否存在因实施救助过程中审核把关不严，造成重复申领、非贫困家庭人员申领、救助原因及救助病种不符合救助范围、虚报冒领等问题，揭示临时医疗救助金在体制、机制、管理上存在的问题。审计功能：采集慈善总会、红十字会等部门多个年度临时医疗救助发放名单，通过与外部数据信息（户籍信息、车辆信息、房产信息、工商登记信息、新农合参保信息、医疗保险报

2、销信息）比对检查，发现因各部门独自实施救助未对发放信息进行共享，加之实施救助过程中存在“人情”等原因，造成临时医疗救助金重复申领、向非贫困家庭人员发放救助金、被救助人申报救助病种与救助范围和事实不符、虚报冒领临时医疗救助金等问题，从而实现审计目标，切实发挥审计监督作用。四、审计事项社会保障审计/社会救助审计/民政救助专项资金/资金筹集/弄虚作假骗取救助资金社会保障审计/社会救助审计/民政救助专项资金/资金管理/挤占挪用、贪污社会保障审计/社会救助审计/民政救助专项资金/资金使用/违规支付救助资金五、所需数据临时医疗救助资金管理使用合规性的审计方法所需数据资料见表1。表1临时医疗救助资金管理使用

3、合规性的审计方法所需数据资料序号数据资料名称结构化非结构化半结构化1临时医疗救助表2车辆信息3房产信息4个人缴存公积金信息5工商登记信息6户籍信息7医疗保险报销信息（1）基础表：临时医疗救助表。数据元素：单位,姓名,性别,是否低保,身份证号,家庭住址,救助原因,救助金额,年度,备注。（2）基础表：车辆信息。数据元素：姓名，身份证号，号牌种类，号牌号码，车辆品牌，车辆型号，生产厂家，车身颜色，登记日期，证书编号，排量。（3）基础表：房产信息。数据元素：房产编号，产权人姓名，身份证号，房产地址，房产面积，获得房产时间。（4）基础表：个人缴存公积金信息。数据元素：姓名，身份证号，单位名称，月工资额，

4、缴存基数。（5）基础表：工商登记信息。数据元素：企业名称，企业类型，行业类型，工商执照号码，有效期起，有效期止，法定代表人姓名，身份证号，注册资本，注册地址，经营范围。（6）基础表：户籍信息。数据元素：姓名，身份证号，与户主关系，户籍编号。（7）基础表：医疗保险报销信息。数据元素：险种类型，姓名，身份证号，医疗机构，医疗类别，医疗卡号，疾病名称，入院日期，出院日期，总费用，报销金额，实付年月，审核状态。六、分析步骤步骤内容1检查是否存在重复申领临时医疗救助金问题。临时救助金原则上是一个家庭只能申领一次，如果出现多次则需要审计人员调取原始申报资料检查是否存在特殊原因，并对造成该问题的原因进行分析

5、和入户调查落实。1.1不同单位不同年度重复申领问题检查。通过对临时医疗救助金发放表，以救助人身份证号做为关键字段进行自连接进行检查，判断是否存在同一个被救助人在不同单位不同年度重复申领救助金问题，如果发现该问题存在则写入疑点库。1.2同一单位不同年度重复申领问题检查。通过对临时医疗救助金发放表，以救助人身份证号做为关键字段进行自连接进行检查，判断是否存在同一个被救助人在同一单位不同年度重复申领救助金问题，如果发现该问题存在则写入疑点库。1.3不同单位同一年度重复申领问题检查。通过对临时医疗救助金发放表，以救助人身份证号做为关键字段进行自连接进行检查，判断是否存在同一个被救助人在不同单位同一年度

6、重复申领救助金问题，如果发现该问题存在则写入疑点库。2非救助病种范围骗取救助金。根据实施救助单位的救助文件中救助范围的规定，检查是否存在申请救助人隐瞒、虚报医疗真实情况，并对患有疾病的病种与实施救助部门规定的情况进行分析比对，发现不符合救助条件的人员申领了救助金。2.1提取医疗保险报销信息表中疾病名称字段包含“白血病”、“尿毒症”、“癌症”和“肾病”综合等医疗就诊人员信息。2.2提取临时医疗救助表救助原因（申请理由）包含“白血病”、“尿毒症”、“癌症”的被救助人原信息。2.3考虑到在医疗报销信息表中身份证号字段存在15位情况，在通过对上述两表关联的时候进行身份证号信息技术处理，确保检查最终结果

7、正确性。2.4通过对生成的临时表<中间表_关联数据分析>和临时医疗救助表身份证号匹配情况，查出非救助病种范围骗取救助金的人员情况信息。3利用户籍信息提取受助者本人及家庭成员的个人信息，按照受助本人和家庭成员分别增加“权属人姓名”、“权属人与户主关系”、“关系结构”、“受助人与户主关系”等字段，以CreateTempTable函数功能生成新表<中间表_个人信息>，为下一步检查出受助人及家庭成员拥有车辆、房产、工作、企业等问题判断权属人与受助人的关系要件。4通过步骤3生成的<中间表_个人信息>临时表与车辆信息表共有身份证号字段进行关联，检查是否存在受助人及户籍家

8、庭成员拥有车辆问题，判断受助人是否存在非贫困人员申请救助金问题，对发现的疑点问题写入疑点库并以信息提示方式告知操作人员在程序执行过程中发现的疑点问题纪录条数。5通过步骤3生成的<中间表_个人信息>临时表与房产信息表共有身份证号字段进行关联，检查是否存在受助人及户籍家庭成员拥有房产问题，判断受助人是否存在非贫困人员申请救助金问题。在此我们对超过或等于住房面积100平方米的人员来判定是否非贫困，对发现的疑点问题写入疑点库并以信息提示方式告知操作人员在程序执行过程中发现的疑点问题纪录条数。6通过步骤3生成的<中间表_个人信息>临时表与工商登记信息表共有身份证号字段进行关联，检

9、查是否存在受助人及户籍家庭成员拥有企业问题，判断受助人是否存在非贫困人员申请救助金问题，对发现的疑点问题写入疑点库并以信息提示方式告知操作人员在程序执行过程中发现的疑点问题纪录条数。7通过步骤3生成的<中间表_个人信息>临时表与个人缴存公积金信息表共有身份证号字段进行关联，检查是否存在受助人及户籍家庭成员拥有工作并正常领取工资问题，判断受助人是否存在非贫困人员申请救助金问题，对发现的疑点问题写入疑点库并以信息提示方式告知操作人员在程序执行过程中发现的疑点问题纪录条数。七、流程图八、方法语言步骤内容11.11.21.3var SqlStr,CurrentQuery,CurNum,Is

10、Empty; begin ShowMsg('欢迎使用<临时医疗救助资金管理使用合规性的计算机审计方法>，下面程序开始分步骤运行，操作人员请按照提示进行操作！'); ShowMsg('步骤1:下面开始执行"重复申领医疗救助金"的三类问题检查'); /按照 ShowMsg('步骤1.1_检查受助人<不同单位不同年度重复申领>问题'); SqlStr:='select distinct a.* ' +'from 临时医疗救助表 a ' +'join 临时医疗救助表 b

11、' +'on a.身份证号=b.身份证号 ' +'where a.单位!=b.单位 ' +'and a.年度!=b.年度 '+'order by 5,1 asc' CurrentQuery:=CreateQ(SqlStr,-1); CurNum:=RecordNum(CurrentQuery); if CurNum=0 then begin ShowMsg('步骤1.1_未发现<不同单位不同年度重复申领>问题'); end else begin ShowMsg('步骤1.1_发现存在&l

12、t;不同单位不同年度重复申领>问题，开始写入疑点，请稍候.'); repeat AddTransRslt(CurrentQuery,'不同单位不同年度重复申领'); IsEmpty:=Qmov(CurrentQuery,1); IsEmpty:=Qeof(CurrentQuery); until IsEmpty=1; TransBatch(CurrentQuery,'不同单位不同年度重复申领'); ShowMsg('步骤1.1_写入疑点库<'+LeftStr(CurNum,Length(CurNum)+'>条成功

13、'); end; /问题类型='同一单位不同年度重复申领' ShowMsg('步骤1.2_检查受助人<同一单位不同年度重复申领>问题'); SqlStr:='select distinct a.* ' +'from 临时医疗救助表 a ' +'join 临时医疗救助表 b ' +'on a.身份证号=b.身份证号 ' +'where a.单位=b.单位 ' +'and a.年度!=b.年度 '+'order by 5,1 asc'

14、CurrentQuery:=CreateQ(SqlStr,-1); CurNum:=RecordNum(CurrentQuery); if CurNum=0 then begin ShowMsg('步骤1.2_未发现<同一单位不同年度重复申领>问题'); end else begin ShowMsg('步骤1.2_发现存在<同一单位不同年度重复申领>问题，开始写入疑点，请稍候.'); repeat AddTransRslt(CurrentQuery,'同一单位不同年度重复申领'); IsEmpty:=Qmov(Curren

15、tQuery,1); IsEmpty:=Qeof(CurrentQuery); until IsEmpty=1; TransBatch(CurrentQuery,'同一单位不同年度重复申领'); ShowMsg('步骤1.2_写入疑点库<'+LeftStr(CurNum,Length(CurNum)+'>条成功'); end; /问题类型='不同单位同一年度重复申领' ShowMsg('步骤1.3_检查受助人<不同单位同一年度重复申领>问题'); SqlStr:='select di

16、stinct a.* ' +'from 临时医疗救助表 a ' +'join 临时医疗救助表 b ' +'on a.身份证号=b.身份证号 ' +'where a.单位!=b.单位 ' +'and a.年度=b.年度 '+'order by 5,1 asc' CurrentQuery:=CreateQ(SqlStr,-1); CurNum:=RecordNum(CurrentQuery); if CurNum=0 then begin ShowMsg('步骤1.3_未发现<不同

17、单位同一年度重复申领>问题'); end else begin ShowMsg('步骤1.3_发现存在<不同单位同一年度重复申领>问题，开始写入疑点，请稍候.'); repeat AddTransRslt(CurrentQuery,'不同单位同一年度重复申领'); IsEmpty:=Qmov(CurrentQuery,1); IsEmpty:=Qeof(CurrentQuery); until IsEmpty=1; TransBatch(CurrentQuery,'不同单位同一年度重复申领'); ShowMsg('

18、;步骤1.3_写入疑点库<'+LeftStr(CurNum,Length(CurNum)+'>条成功'); end; begin ShowMsg('步骤1_"重复申领医疗救助金"的三类问题审计步骤完成！'); end end.2var SqlStr,CurrentQuery,CurNum,IsEmpty; begin ShowMsg('步骤2_下面开始执行"非救助病种范围骗取救助金"的问题检查'); /医疗救助单位需对申请人提起的申请"病种"进行严格审查，对不符合补助

19、范围的病种不予以批准进行救助。 /按照实施救助单位规定的病种，对患有"白血病"、"尿毒症"、"癌症"的人员就诊情况进行诊疗费提取，考虑上述两类病种均为肾病综合征的一种，所以检索患有肾病的也纳入分析。 SqlStr:='select distinct 身份证号 '+'from 医疗保险报销信息 '+'where 疾病名称 like '+QuotedStr('%白血%') +' or 疾病名称 like '+QuotedStr('%尿毒%')

20、+' or 疾病名称 like '+QuotedStr('%肾%') +' or 疾病名称 like '+QuotedStr('%癌%'); CreateTempTable('中间表_医疗数据提取',SqlStr); /提取实施就主单位以"白血病"、"尿毒症"为理由申请的人员情况，并形成中间表 SqlStr:='select * ' +'from 临时医疗救助表 '+'where 救助原因 like '+QuotedStr(&#

21、39;%白血%') +' or 救助原因 like '+QuotedStr('%尿毒%') +' or 救助原因 like '+QuotedStr('%癌%'); CreateTempTable('中间表_救助数据提取',SqlStr); /将上述生成的两个临时表以身份证号字段进行关联，检查被救助人申请理由是否真实 SqlStr:='select a.* ' +'from 中间表_救助数据提取 a ' +'join 中间表_医疗数据提取 b ' +'o

22、n (case when len(a.身份证号)=15 then a.身份证号 '+'when len(a.身份证号)=18 then left(a.身份证号,6)+substring(a.身份证号,9,9) '+'else a.身份证号 end) '+'=' +'(case when len(b.身份证号)=15 then b.身份证号 '+'when len(b.身份证号)=18 then left(b.身份证号,6)+substring(b.身份证号,9,9) '+'else b.身份证号 e

23、nd)'CreateTempTable('中间表_关联数据分析',SqlStr);SqlStr:='select * ' +'from 临时医疗救助表 ' +'where 身份证号 not in (select distinct 身份证号 from 中间表_关联数据分析) ' +'and (救助原因 like '+QuotedStr('%白血%') +' or 救助原因 like '+QuotedStr('%尿毒%')+')' CurrentQ

24、uery:=CreateQ(SqlStr,-1); CurNum:=RecordNum(CurrentQuery); if CurNum=0 then begin ShowMsg('未发现<非救助病种范围骗取救助金>问题'); end else begin ShowMsg('发现存在<非救助病种范围骗取救助金>问题，开始写入疑点，请稍候.'); repeat AddTransRslt(CurrentQuery,'非救助病种范围骗取救助金'); IsEmpty:=Qmov(CurrentQuery,1); IsEmpty:=

25、Qeof(CurrentQuery); until IsEmpty=1; TransBatch(CurrentQuery,'非救助病种范围骗取救助金'); ShowMsg('写入疑点库<'+LeftStr(CurNum,Length(CurNum)+'>条成功'); end; begin ShowMsg('步骤2：非救助病种范围骗取救助金审计步骤完成！'); end end.3var SqlStr; begin ShowMsg('步骤3_下面开始执行"提取受助人家庭户籍所有人员信息"步骤&#

26、39;); SqlStr:='select 权属人姓名=c.姓名,权属人身份证号=c.身份证号,权属人与户主关系=c.与户主关系,关系结构=case when c.身份证号=d.身份证号 then d.姓名+'+QuotedStr('_')+'+d.内容 else d.姓名+'+QuotedStr('_家庭')+' end,受助人姓名=d.姓名,受助人身份证号=d.身份证号,受助人与户主关系=d.与户主关系,d.救助单位,d.救助原因 ' +'from 户籍信息 c ' +'join (se

27、lect 内容='+QuotedStr('本人')+',救助单位=a.单位,a.救助原因,b.* ' +'from dbo.临时医疗救助表 a ' +'join dbo.户籍信息 b ' +'on (case when len(a.身份证号)=15 then a.身份证号 when len(a.身份证号)=18 then left(a.身份证号,6)+substring(a.身份证号,9,9) else a.身份证号 end) ' +'=' +'(case when len(b.身份

28、证号)=15 then b.身份证号 when len(b.身份证号)=18 then left(b.身份证号,6)+substring(b.身份证号,9,9) else b.身份证号 end) ' +') d ' +'on c.户籍编号=d.户籍编号' CreateTempTable('中间表_个人信息',SqlStr); /如果需要对步骤45的SQL语句验证，需要将下行注释取消生成实体表进行运行。 AddTable('中间表_个人信息'); ShowMsg('已经成功生成<中间表_个人信息>临时表！

29、'); begin ShowMsg('步骤3_"提取受助人家庭户籍所有人员信息"审计步骤完成！'); end end.4var SqlStr,CurrentQuery,CurNum,IsEmpty; begin ShowMsg('步骤4_下面开始执行"非贫困家庭患病人员拥有<车辆>申领救助金"的问题检查'); /检查家庭成员是否拥有车辆 SqlStr:='select distinct b.*,a.车辆品牌 名称or地址,convert(nvarchar(max),a.登记日期) 登记日期,co

30、nvert(nvarchar(max),a.号牌号码) 面积or车牌号' +',备注='+QuotedStr('车辆类型：')+'+isnull(convert(nvarchar(max),号牌种类),'+QuotedStr('')+')+' +QuotedStr('车辆排量：')+'+isnull(convert(nvarchar(max),排量),'+QuotedStr('')+')+' +QuotedStr('生产厂家：'

31、)+'+isnull(convert(nvarchar(max),生产厂家),'+QuotedStr('')+')+' +QuotedStr('车身颜色：')+'+isnull(convert(nvarchar(max),车身颜色),'+QuotedStr('')+') +'from dbo.车辆信息 a ' +'join 中间表_个人信息 b ' +'on (case when len(a.身份证号)=15 then a.身份证号 ' +&#

32、39;when len(a.身份证号)=18 then left(a.身份证号,6)+substring(a.身份证号,9,9) ' +'else a.身份证号 end) ' +'=' +'(case when len(b.权属人身份证号)=15 then b.权属人身份证号 ' +'when len(b.权属人身份证号)=18 then left(b.权属人身份证号,6)+substring(b.权属人身份证号,9,9) ' +'else b.权属人身份证号 end) ' CurrentQuery:=Cr

33、eateQ(SqlStr,-1); CurNum:=RecordNum(CurrentQuery); if CurNum=0 then begin ShowMsg('未发现<拥有车辆>问题'); end else begin ShowMsg('发现存在<拥有车辆>问题，开始写入疑点，请稍候.'); repeat AddTransRslt(CurrentQuery,'拥有车辆'); IsEmpty:=Qmov(CurrentQuery,1); IsEmpty:=Qeof(CurrentQuery); until IsEmpt

34、y=1; TransBatch(CurrentQuery,'拥有车辆'); ShowMsg('<拥有车辆>问题写入疑点库<'+LeftStr(CurNum,Length(CurNum)+'>条成功'); end; begin ShowMsg('步骤4_"非贫困家庭患病人员拥有<车辆>申领救助金"审计步骤完成！'); end end.5var SqlStr,CurrentQuery,CurNum,IsEmpty; begin ShowMsg('步骤5_下面开始执行&qu

35、ot;非贫困之受助人及家庭成员拥有<房产>问题"的问题检查'); ShowMsg('下面开始对家庭成员是否拥有<房产>进行检查！'); /检查家庭成员是否拥有房产，检查房产面积有无超过100平方米的问题 SqlStr:='select distinct b.*,a.房产地址 名称or地址,convert(nvarchar(max),a.获得房产时间) 登记日期,convert(nvarchar(max),a.房产面积) 面积or车牌号' +',备注='+QuotedStr('房产面积：')

36、+'+ISNULL(CONVERT(nvarchar(max),a.房产面积),'+QuotedStr('')+')+'+QuotedStr('平方米') +' from dbo.房产信息 a ' +'join 中间表_个人信息 b ' +'on (case when len(a.身份证号)=15 then a.身份证号 when len(a.身份证号)=18 then left(a.身份证号,6)+substring(a.身份证号,9,9) else a.身份证号 end) ' +

37、'=' +'(case when len(b.权属人身份证号)=15 then b.权属人身份证号 when len(b.权属人身份证号)=18 then left(b.权属人身份证号,6)+substring(b.权属人身份证号,9,9) else b.权属人身份证号 end) ' +'where a.房产面积>=100' CurrentQuery:=CreateQ(SqlStr,-1); CurNum:=RecordNum(CurrentQuery); if CurNum=0 then begin ShowMsg('未发现<

38、;拥有房产>问题'); end else begin ShowMsg('发现存在<拥有房产>问题，开始写入疑点，请稍候.'); repeat AddTransRslt(CurrentQuery,'拥有房产'); IsEmpty:=Qmov(CurrentQuery,1); IsEmpty:=Qeof(CurrentQuery); until IsEmpty=1; TransBatch(CurrentQuery,'拥有房产'); ShowMsg('<拥有房产>问题写入疑点库<'+LeftS

39、tr(CurNum,Length(CurNum)+'>条成功'); end; begin ShowMsg('步骤5_"非贫困之受助人及家庭成员拥有<房产>问题"审计步骤完成！'); end end.6var SqlStr,CurrentQuery,CurNum,IsEmpty; begin ShowMsg('步骤6_下面开始执行"非贫困之受助人及家庭成员拥有<企业>问题"的问题检查'); /检查家庭成员是否拥有企业 SqlStr:='select distinct b.

40、*,a.企业名称 名称or地址,convert(nvarchar(max),a.有效期起) 登记日期,a.注册地址 面积or车牌号' +',备注='+QuotedStr('工商注册资本金：')+'+isnull(convert(nvarchar(max),ltrim(rtrim(注册资本),'+QuotedStr('')+')+' +QuotedStr('行业类型：')+'+isnull(convert(nvarchar(max),ltrim(rtrim(行业类型),'+Qu

41、otedStr('')+')+' +QuotedStr('业务范围：')+'+isnull(convert(nvarchar(max),ltrim(rtrim(经营范围),'+QuotedStr('')+')' +' from dbo.工商登记信息 a ' +'join 中间表_个人信息 b ' +'on (case when len(a.身份证号)=15 then a.身份证号 when len(a.身份证号)=18 then left(a.身份证号,6)+

42、substring(a.身份证号,9,9) else a.身份证号 end) ' +'=' +'(case when len(b.权属人身份证号)=15 then b.权属人身份证号 when len(b.权属人身份证号)=18 then left(b.权属人身份证号,6)+substring(b.权属人身份证号,9,9) else b.权属人身份证号 end) ' CurrentQuery:=CreateQ(SqlStr,-1); CurNum:=RecordNum(CurrentQuery); if CurNum=0 then begin ShowM

43、sg('未发现<拥有企业>问题'); end else begin ShowMsg('发现存在<拥有企业>问题，开始写入疑点，请稍候.'); repeat AddTransRslt(CurrentQuery,'拥有企业'); IsEmpty:=Qmov(CurrentQuery,1); IsEmpty:=Qeof(CurrentQuery); until IsEmpty=1; TransBatch(CurrentQuery,'拥有企业'); ShowMsg('<拥有企业>问题写入疑点库&

44、lt;'+LeftStr(CurNum,Length(CurNum)+'>条成功'); end; begin ShowMsg('步骤6_"非贫困之受助人及家庭成员拥有<企业>问题"审计步骤完成！'); end end.7var SqlStr,CurrentQuery,CurNum,IsEmpty; begin ShowMsg('步骤7_下面开始执行"非贫困之受助人及家庭成员拥有<工作>问题"的问题检查'); /检查家庭成员是否拥有工作并正常领取工资额超过2000元的问题

45、 SqlStr:='select distinct b.*,a.单位名称 名称or地址,convert(varchar(max),a.月工资额) 登记日期,convert(varchar(max),a.缴存基数) 面积or车牌号' +',备注='+QuotedStr('月平均工资：')+'+isnull(convert(varchar(max),a.月工资额),'+QuotedStr('')+')+' +QuotedStr('缴费基数：')+'+isnull(convert(

46、varchar(max),a.缴存基数),'+QuotedStr('')+') ' +'from dbo.个人缴存公积金信息 a ' +'join 中间表_个人信息 b ' +'on (case when len(a.身份证号)=15 then a.身份证号 when len(a.身份证号)=18 then left(a.身份证号,6)+substring(a.身份证号,9,9) else a.身份证号 end) ' +'=' +'(case when len(b.权属人身份证号)=

47、15 then b.权属人身份证号 when len(b.权属人身份证号)=18 then left(b.权属人身份证号,6)+substring(b.权属人身份证号,9,9) else b.权属人身份证号 end) ' +'where a.月工资额>=2000' CurrentQuery:=CreateQ(SqlStr,-1); CurNum:=RecordNum(CurrentQuery); if CurNum=0 then begin ShowMsg('未发现<拥有工作>问题'); end else begin ShowMsg('发现存在<拥有工作>问题，开始写入疑点，请稍候.'); repeat AddTransRslt(CurrentQuery,'拥有工作'); IsEmpty:=Qmov(CurrentQuery,1); IsEmpty:=Qeof(CurrentQuery); until IsEmpty=1; Trans