廉租房实物配租和货币补贴发放情况的计算机审计方法

15.10.2014 17:25

本文来源: 审计厅

一、方法代码二、方法名称

三、目标功能

审计目标：廉租房保障制度主要通过发放货币补贴、实物配租等方式实施。其中，货币补贴是指政府向符合廉租住房保障条件的城市低收入、住房困难家庭发放租赁住房补贴，由其自行承租住房。实物配租是指政府向符合廉租住房保障条件的家庭提供住房，并按照规定标准收取租金。而在此过程中，货币补贴及实物配租的发放是最重要的环节，关系到真正的低收入家庭的切身利益。审计的目标是检查经办机构在这一环节的合规性和真实性。
　　审计功能：通过对多部门数据的核对，发现同时享有两种补贴方式、重复享受货币补贴、不符合货币补贴标准的人员享受补贴等问题。

四、审计事项

保障性安居工程审计/廉租住房审计/实物配租和货币补贴发放情况

五、所需数据

表1 货币补贴发放的计算机审计方法所需数据资料

序号	数据资料名称	结构化	非结构化	备注
1	廉租房补贴资金发放表	√		住建部门
2	廉租房租赁情况表	√		住建部门
3	低保人员名单	√		民政部门
４	房产登记信息表	√		房管局
5	车辆信息等级表	√		车管所
6	工商信息等级表	√		市场监督局

（1）基础表：廉租房补贴资金发放表

数据元素：编号，户主姓名，身份证号，人数，面积，补助金额等。

（2）基础表：廉租房租赁情况表

数据元素：编号，户主姓名，身份证号，人数，面积等。

（3）基础表：低保人员名单

数据元素：人员姓名，身份证号，所属行政区划，住址，低保编号，银行账号等。

（4）基础表：房产信息登记表

数据元素：户主姓名，身份证号，住址，面积等。

（5）基础表：车辆信息登记表

数据元素：车主姓名，身份证号，购车日期，车辆型号，车牌号码等。

（6）基础表：工商信息登记表

数据元素：名称，经营场所，注册号，申请者，行业类别，行业代码，资金数额，开业日期，身份证号等。

六、分析步骤

步骤	内容
1	通过核对廉租住房补贴发放表与廉租住房租赁情况表中个人身份证号，查看是否有同时享受货币补助和实物配租。
2	根据某县廉租住房分配方案：廉租住房实物配租分配对象为在县城规划区域（城区）范围内的低保无房户、低收入无房户、低保和低收入住房困难家庭。住房困难家庭指我县人均住房建筑面积低于11平方米的城市低保和低收入家庭。核查是否有不符合实物配租标准的人员享受实物配租。
3	通过核查廉租房补贴资金发放表，是否存在重复享受货币补贴的人员。
4	通过比对廉租房补贴资金发放表、房产信息表、车辆登记信息表和工商登记信息表，核查是否存在不符合货币补贴标准的人员享受该项补贴。

七、流程图

八、方法语言

步骤	内容
1	var Cx,Bz; begin Cx:=CreateQ(select a.编号,a.户主,a.身份证号,a.人数,a.面积,a.年补金额,b.姓名,b.身份证号,b.人数,b.面积 from 廉租房补贴资金表 a,廉租房租赁情况 b where a.身份证号=b.身份证号',-1); Bz:=qeof(Cx); if Bz#1 then begin repeat AddTransRslt(Cx,'同时享受两种补贴的人员'); Bz:=qmov(Cx,1); Bz:=qeof(Cx); until Bz=1; end; TransBatch(Cx,'同时享受两种补贴的人员'); end.
2	var Cx,Bz; begin Cx:=CreateQ（Select * from廉租房租赁情况where 身份证号 not in +' ('+select 身份证号 from 低保人员名单',-1); Bz:=qeof(Cx); if Bz#1 then begin repeat AddTransRslt(Cx,'不符合实物配租标准的享受实物配租'); Bz:=qmov(Cx,1); Bz:=qeof(Cx); until Bz=1; end; TransBatch(Cx,'不符合实物配租标准的享受实物配租'); end.
3	var Cx,Bz; begin Cx:=CreateQ（select * from 廉租房补贴资金表 where 身份证号 in (select 身份证号 from 廉租房补贴资金表 group by 身份证号,月份 having count()>1',-1); Bz:=qeof(Cx); if Bz#1 then begin repeat AddTransRslt(Cx,'重复享受货币补贴的人员'); Bz:=qmov(Cx,1); Bz:=qeof(Cx); until Bz=1; end; TransBatch(Cx,'重复享受货币补贴的人员*'); end.
4	var Cx,Bz; begin Cx:=CreateQ（Select * from廉租房补贴资金表where 身份证号 in (select 身份证号 from 房产登记信息表) or 身份证号 in(select 身份证号 from 车辆登记信息表) or 身份证号 in（(select 身份证号 from 工商信息登记表)',-1); Bz:=qeof(Cx); if Bz#1 then begin repeat AddTransRslt(Cx,'不符合货币补贴标准的人员享受该项补贴'); Bz:=qmov(Cx,1); Bz:=qeof(Cx); until Bz=1; end; TransBatch(Cx,'不符合货币补贴标准的人员享受该项补贴'); end.