承保商骗取种植业农业保险补贴的计算机审计方法
一、方法代码：
EC
二、方法名称：
承保商骗取种植业农业保险补贴的计算机审计方法
三、目标功能
审计目标：促进政策性农业保险的健康发展，保障财政资金的使用效益。
审计功能：通过对良种补贴、承包清单、理赔清单的综合比较分析，审查承包商采用虚假承保方式骗取财政农业保险补贴的情况。
四、审计事项
金融审计/保险公司审计/业务经营/承保合规性
五、所需数据
表1 承保商骗取种植业农业保险补贴的计算机审计方法所需数据资料
| 序号 | 数据资料名称 | 结构化 | 非结构化 | 半结构化 |
| 1 | 良种补贴清单 | √ |
|
|
| 2 | 承保清单 | √ |
|
|
| 3 | 农业保险理赔清单 | √ |
|
|
基础表：
1）良种补贴清单。数据元素：农户代码、姓名、身份证号码、直补卡号、良种补贴面积、补贴标准、补贴金额。
2）承保清单。数据元素：农户代码、姓名、身份证号码、直补卡号、可承包面积、农户保费、实际承包面积、农户实际自缴保费。
3）农业保险理赔清单：农户代码、姓名、身份证号码、直补卡号、赔付面积、损失率、补贴金额、家庭地址。
六、分析步骤
| 步骤 | 内容 |
| 1 | 查询实际承保面积大于良种补贴面积的承保单，并生成疑点表。 |
| 2 | 统计虚假承保总面积和骗取财政补贴总金额，并插入疑点。 |
| 3 | 查询赔付面积大于良种补贴面积的赔付明细，并生成疑点表。 |
| 4 | 幸福县伪造损失骗取保险总金额，并插入疑点。 |
| 5 | 统计出农业保险承保商在幸福县骗取财政补贴净额，并插入疑点。 |
七、流程图
八、方法语言
| 步骤 | 内容 |
| 1 | var sql,a,bz; begin sql:='select a.*,b.良种补贴面积 from 承保清单 a join 良种补贴清单 b on a.农户代码=b.农户代码 where 实际承保面积>(良种补贴面积 +1)'; CreateTempTable ('虚假承保清单',sql); a:= CreateQ ('select * from 虚假承保清单',-1); while qeof (a)<>1 do begin AddTransRslt (a,'虚假承保单据'); bz:= qmov (a,1); end ; TransBatch (a,'幸福县所有的虚假承保单据'); end . |
| 2 | var sql,a,bz; begin sql:='select sum(实际承保面积-良种补贴面积) as 虚假承保面积, sum(实际承保面积-良种补贴面积)*12 as 虚假承保套取财政补贴资金 from 虚假承保清单'; CreateTempTable ('套取财政补贴总金额',sql); a:= CreateQ ('select * from 套取财政补贴总金额',-1); while qeof (a)<>1 do begin AddTransRslt (a,'套取财政补贴总金额'); bz:= qmov (a,1); end ; TransBatch (a,'幸福县农业保险承保商套取财政补贴总金额'); end . |
| 3 | var sql,a,bz; begin sql:='select a.*,b.良种补贴面积 from 农业保险理赔清单 a join 良种补贴清单 b on a.农户代码=b.农户代码 where (赔付面积-良种补贴面积)>1'; CreateTempTable ('伪造损失赔付清单',sql); a:= CreateQ ('select * from 伪造损失赔付清单',-1); while qeof (a)<>1 do begin AddTransRslt (a,'伪造损失赔付单据'); bz:= qmov (a,1); end ; TransBatch (a,'幸福县所有的伪造损失赔付单据'); end . |
| 4 | var sql,a,bz; begin sql:='select sum(补贴金额) as 骗取保险总金额 from 伪造损失赔付清单'; CreateTempTable ('骗取保险总金额',sql); a:= CreateQ ('select * from 骗取保险总金额',-1); while qeof (a)<>1 do begin AddTransRslt (a,'骗取保险总金额'); bz:= qmov (a,1); end ; TransBatch (a,'幸福县骗取保险总金额'); end . |
| 5 | var sql,a,bz; begin sql:='select (sum(实际承保面积-良种补贴面积)*15-(select 骗取保险总金额 from 骗取保险总金额)) as 骗取财政补贴净额 from 虚假承保清单'; CreateTempTable ('承保商骗取财政资金净额',sql); a:= CreateQ ('select * from 承保商骗取财政资金净额',-1); while qeof (a)<>1 do begin AddTransRslt (a,'承保商骗取财政资金净额'); bz:= qmov (a,1); end ; TransBatch (a,'承保商在幸福县骗取财政资金净额'); end . |
九、适用法规
国务院令第629号《农业保险条例》第七条：“禁止以下列方式或者其他任何方式骗取农业保险的保险费补贴：（一）虚构或者虚增保险标的或者以同一保险标的进行多次投保；（二）以虚假理赔、虚列费用、虚假退保或者截留、挪用保险金、挪用经营费用等方式冲销投保人应缴的保险费或者财政给予的保险费补贴。”
十、审计建议
财政部门加强对政策性农业保险承保商申报的基础资料加强审核、确保承保标的真实、准确，杜绝承保商通过虚构保险标的骗取财政专项补贴的情况。
十一、作者单位
安徽省安庆市太湖县审计局 韦祚哲
十二、时间
2014年*月*日
十三、标志
A
