廉租房待遇合规性计算机审计探讨

黄炎

近几年，我国大力推进廉租房建设，有效解决了城镇中低收入人群的住房困难问题，切实保障和改善了民生，进一步推动了我国住房保障制度的完善和经济社会平稳发展。但是，由于城镇居民家庭的收入来源多样、资产分布广泛，而记录居民家庭资产的各项数据分散在房产、公积金、社会保障、车辆等各个部门，没有实现信息资源共享，因此，如何及时、有效地核查廉租房家庭的住房和经济状况一直是一个棘手的问题。随着国家信息化战略的实施，各相关部门的业务数据不断完善，通过计算机审计核查享受廉租房待遇的家庭是否具备规定的资格条件，成为一个有效的手段。

一、计算机审计目标

通过检查享受政府廉租房的人员是否为符合条件的城镇中低收入家庭，坚决查处违规骗保、损公肥私等侵害人民群众利益的违法违规行为，促进国家保障性住房政策落到实处，让真正有住房需求和住房困难的城镇低收入家庭享受廉租房待遇，保障和改善民生，维护社会和谐稳定。

二、计算机审计切入点

一方面，将享受政府廉租房实物配租和货币补贴的人员名单与同期市区房产信息进行比对，发现有住房或住房面积超标准的家庭违规享受廉租房保障待遇的问题线索；另一方面，将享受政府廉租房实物配租和货币补贴的人员名单与同期公积金缴存信息进行比对，发现月收入超过城镇中低收入线的家庭违规享受廉租房保障待遇的问题线索。

三、计算机审计所需数据

廉租房待遇合规性计算机审计所需数据资料主要有：

1.2011年实物配租名单：姓名、身份证号、家庭地址、家庭人口数、住房面积、入住时间、联系方式。

2.2011年货币补贴名单：申请人、性别、证件号码、保障人口、现住地址、人均面积、家庭情况、申请编号、联系电话、补贴月数、补贴总金额等。

3.2011年年末市区房产登记信息：序号、房屋产权人、房屋产权登记号、房屋地址、产权人身份证号、面积、登记时间。

4.2011年市区公积金缴存信息：单位名称、姓名、身份证号、余额、月缴存基数、月缴存额、月份等。

5.文档资料：列明当地享受廉租房待遇资格条件认定的文件、建设部等七部委出台的《廉租住房保障办法》及被审计单位电子数据的指标解释等。

四、计算机审计模型构造

1.廉租房待遇合规性计算机审计实体关系图

2.廉租房待遇合规性计算机审计数据关系表

五、计算机审计重点及步骤

（一）检查廉租房保障家庭是否已有住房或住房面积超标准

1.审计思路：根据国家和当地政策规定，政府廉租房的保障对象必须是无住房或是人均住房面积低于13平方米的城镇住房困难家庭。通过将已经享受廉租房保障待遇的人员信息和市区房产登记信息进行比对，查看有无住房不符合条件骗取或违规享受廉租房待遇的问题。

2.具体步骤：

（1）分别取得2011年市区享受廉租房实物配租和货币补贴的人员名单、2011年市区公积金缴存信息后，进行数据整理和转换。

（2）筛选出房产登记信息与廉租房实物配租和货币补贴人员名单中姓名和身份证号重复的记录，再设定条件筛选出其中家庭实际有房产或是人均住房面积超出了13平方米的人员信息，得出房产不符合条件享受了廉租房待遇的疑点。

具体ASL语句如下：

var sql； //定义变量 sql：查询

begin

sql：='select 申请人，a.证件号码，保障人口，现住地址，补贴总金额，房屋产权人，房屋地址，面积，登记时间 from [2011年货币补贴名单] a join [2011年年末市区房产登记信息] b on （a.证件号码=b.产权人身份证号） and （a.申请人=b.房屋产权人） where （b.面积/a.保障人口）>13'；

CreateTempTable（'补贴疑点表1'，sql）； //生成分析表

AddTable（'补贴疑点表1'）；

ShowMsg（'成功生成补贴疑点表1。'）；

sql：='select a.姓名，身份证号，家庭人口数，家庭地址，住房面积，入住时间，房屋地址，面积，登记时间 from [2011年实物配租名单] a join [2011年年末市区房产登记信息] b on （a.身份证号=b.产权人身份证号 and a.姓名=b.房屋产权人） where （b.面积/a.家庭人口数）>13'；

CreateTempTable（'实物疑点表1'，sql）； //生成分析表

AddTable（'实物疑点表1'）；

ShowMsg（'成功生成实物疑点表1分析表。'）；

end.

（二）检查廉租房保障家庭月收入是否超出城镇中低收入线

1.审计思路：根据国家和当地政策规定，政府廉租房的保障对象必须是城镇人均月收入在低保标准（当地上半年低保标准为260元，下半年低保标准为320元）1.6倍以下的低收入家庭。通过将已经享受廉租房保障待遇的人员信息和市区公积金缴存信息进行比对，查看有无家庭月收入不符合条件骗取或违规享受廉租房待遇的问题。

2.具体步骤：

（1）分别取得2011年市区享受廉租房实物配租和货币补贴的人员名单、2011年市区公积金缴存信息后，进行数据整理和转换。

（2）筛选出公积金缴存信息与廉租房实物配租和货币补贴人员名单中姓名和身份证号重复的记录，再设定条件筛选出其中月缴存基数超过当地城市低收入标准的人员信息，得出家庭人均月收入不符合条件享受了廉租房实物分房或货币补贴的疑点。城市家庭低收入标准为家庭人口数与当地低保标准1.6倍的乘积，当地低保标准的1.6倍上半年为416元=260元×1.6，下半年为512元=320元×1.6。

具体ASL语句如下：

var sql； //定义变量 sql：查询

begin

sql：='select 申请人，证件号码，保障人口，补贴总金额，月缴存基数，月缴存额，月份 from [2011年货币补贴名单] a join [2011年公积金缴存信息] b on （a.证件号码=b.身份证号） and （a.申请人=b.姓名） where （b.月缴存基数>（260*1.6*a.保障人口） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'补贴疑点表2a'，sql）； //生成分析表

AddTable（'补贴疑点表2a'）；

ShowMsg（'成功生成补贴疑点表2a。'）；

sql：='select 申请人，证件号码，保障人口，补贴总金额，月缴存基数，月缴存额，月份 from [2011年货币补贴名单] a join [2011年公积金缴存信息] b on （a.证件号码=b.身份证号） and （a.申请人=b.姓名） where （b.月缴存基数>（320*1.6*a.保障人口） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'补贴疑点表2b'，sql）； //生成分析表

AddTable（'补贴疑点表2b'）；

ShowMsg（'成功生成补贴疑点表2b。'）；

sql：='select * from 补贴疑点表2a union select * from 补贴疑点表2b'；

CreateTempTable（'补贴疑点表2'，sql）； //生成分析表

AddTable（'补贴疑点表2'）；

ShowMsg（'成功生成补贴疑点表2。'）；

sql：='Select distinct 证件号码，申请人，补贴总金额 From 补贴疑点表2 '；

CreateTempTable（'补贴疑点表3'，sql）； //生成分析表

AddTable（'补贴疑点表3'）；

ShowMsg（'成功生成补贴疑点表3。'）；

sql：='select a.姓名，a.身份证号，家庭人口数，家庭地址，住房面积，入住时间，月缴存基数，月缴存额，月份 from [2011年实物配租名单] a join [2011年公积金缴存信息] b on （a.身份证号=b.身份证号） and （a.姓名=b.姓名） where （b.月缴存基数>（260*1.6*a.家庭人口数） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'实物疑点表2a'，sql）； //生成分析表

AddTable（'实物疑点表2a'）；

ShowMsg（'成功生成实物疑点表2a。'）；

sql：='select a.姓名，a.身份证号，家庭人口数，家庭地址，住房面积，入住时间，月缴存基数，月缴存额，月份 from [2011年实物配租名单] a join [2011年公积金缴存信息] b on （a.身份证号=b.身份证号） and （a.姓名=b.姓名） where （b.月缴存基数>（320*1.6*a.家庭人口数） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'实物疑点表2b'，sql）； //生成分析表

AddTable（'实物疑点表2b'）；

ShowMsg（'成功生成实物疑点表2b。'）；

sql：='select * from 实物疑点表2a union select * from 实物疑点表2b '；

CreateTempTable（'实物疑点表2'，sql）； //生成分析表

AddTable（'实物疑点表2'）；

ShowMsg（'成功生成实物疑点表2。'）；

sql：='select distinct 姓名，身份证号，家庭地址，入住时间，月缴存基数 from 实物疑点表2'；

CreateTempTable（'实物疑点表3'，sql）； //生成分析表

AddTable（'实物疑点表3'）；

ShowMsg（'成功生成实物疑点表3'）；

end.

（3）收集相关文档资料，进行调查取证，核实可疑问题，得出审计结论。（作者单位：安徽省审计厅）

具体ASL语句如下：

var sql； //定义变量 sql：查询

begin

sql：='select 申请人，证件号码，保障人口，补贴总金额，月缴存基数，月缴存额，月份 from [2011年货币补贴名单] a join [2011年公积金缴存信息] b on （a.证件号码=b.身份证号） and （a.申请人=b.姓名） where （b.月缴存基数>（260*1.6*a.保障人口） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'补贴疑点表2a'，sql）； //生成分析表

AddTable（'补贴疑点表2a'）；

ShowMsg（'成功生成补贴疑点表2a。'）；

sql：='select 申请人，证件号码，保障人口，补贴总金额，月缴存基数，月缴存额，月份 from [2011年货币补贴名单] a join [2011年公积金缴存信息] b on （a.证件号码=b.身份证号） and （a.申请人=b.姓名） where （b.月缴存基数>（320*1.6*a.保障人口） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'补贴疑点表2b'，sql）； //生成分析表

AddTable（'补贴疑点表2b'）；

ShowMsg（'成功生成补贴疑点表2b。'）；

sql：='select * from 补贴疑点表2a union select * from 补贴疑点表2b'；

CreateTempTable（'补贴疑点表2'，sql）； //生成分析表

AddTable（'补贴疑点表2'）；

ShowMsg（'成功生成补贴疑点表2。'）；

sql：='Select distinct 证件号码，申请人，补贴总金额 From 补贴疑点表2 '；

CreateTempTable（'补贴疑点表3'，sql）； //生成分析表

AddTable（'补贴疑点表3'）；

ShowMsg（'成功生成补贴疑点表3。'）；

sql：='select a.姓名，a.身份证号，家庭人口数，家庭地址，住房面积，入住时间，月缴存基数，月缴存额，月份 from [2011年实物配租名单] a join [2011年公积金缴存信息] b on （a.身份证号=b.身份证号） and （a.姓名=b.姓名） where （b.月缴存基数>（260*1.6*a.家庭人口数） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'实物疑点表2a'，sql）； //生成分析表

AddTable（'实物疑点表2a'）；

ShowMsg（'成功生成实物疑点表2a。'）；

sql：='select a.姓名，a.身份证号，家庭人口数，家庭地址，住房面积，入住时间，月缴存基数，月缴存额，月份 from [2011年实物配租名单] a join [2011年公积金缴存信息] b on （a.身份证号=b.身份证号） and （a.姓名=b.姓名） where （b.月缴存基数>（320*1.6*a.家庭人口数） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'实物疑点表2b'，sql）； //生成分析表

AddTable（'实物疑点表2b'）；

ShowMsg（'成功生成实物疑点表2b。'）；

sql：='select * from 实物疑点表2a union select * from 实物疑点表2b '；

CreateTempTable（'实物疑点表2'，sql）； //生成分析表

AddTable（'实物疑点表2'）；

ShowMsg（'成功生成实物疑点表2。'）；

sql：='select distinct 姓名，身份证号，家庭地址，入住时间，月缴存基数 from 实物疑点表2'；

CreateTempTable（'实物疑点表3'，sql）； //生成分析表

AddTable（'实物疑点表3'）；

ShowMsg（'成功生成实物疑点表3'）；

end.

（3）收集相关文档资料，进行调查取证，核实可疑问题，得出审计结论。（作者单位：安徽省审计厅）

具体ASL语句如下：

var sql； //定义变量 sql：查询

begin

sql：='select 申请人，证件号码，保障人口，补贴总金额，月缴存基数，月缴存额，月份 from [2011年货币补贴名单] a join [2011年公积金缴存信息] b on （a.证件号码=b.身份证号） and （a.申请人=b.姓名） where （b.月缴存基数>（260*1.6*a.保障人口） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'补贴疑点表2a'，sql）； //生成分析表

AddTable（'补贴疑点表2a'）；

ShowMsg（'成功生成补贴疑点表2a。'）；

sql：='select 申请人，证件号码，保障人口，补贴总金额，月缴存基数，月缴存额，月份 from [2011年货币补贴名单] a join [2011年公积金缴存信息] b on （a.证件号码=b.身份证号） and （a.申请人=b.姓名） where （b.月缴存基数>（320*1.6*a.保障人口） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'补贴疑点表2b'，sql）； //生成分析表

AddTable（'补贴疑点表2b'）；

ShowMsg（'成功生成补贴疑点表2b。'）；

sql：='select * from 补贴疑点表2a union select * from 补贴疑点表2b'；

CreateTempTable（'补贴疑点表2'，sql）； //生成分析表

AddTable（'补贴疑点表2'）；

ShowMsg（'成功生成补贴疑点表2。'）；

sql：='Select distinct 证件号码，申请人，补贴总金额 From 补贴疑点表2 '；

CreateTempTable（'补贴疑点表3'，sql）； //生成分析表

AddTable（'补贴疑点表3'）；

ShowMsg（'成功生成补贴疑点表3。'）；

sql：='select a.姓名，a.身份证号，家庭人口数，家庭地址，住房面积，入住时间，月缴存基数，月缴存额，月份 from [2011年实物配租名单] a join [2011年公积金缴存信息] b on （a.身份证号=b.身份证号） and （a.姓名=b.姓名） where （b.月缴存基数>（260*1.6*a.家庭人口数） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'实物疑点表2a'，sql）； //生成分析表

AddTable（'实物疑点表2a'）；

ShowMsg（'成功生成实物疑点表2a。'）；

sql：='select a.姓名，a.身份证号，家庭人口数，家庭地址，住房面积，入住时间，月缴存基数，月缴存额，月份 from [2011年实物配租名单] a join [2011年公积金缴存信息] b on （a.身份证号=b.身份证号） and （a.姓名=b.姓名） where （b.月缴存基数>（320*1.6*a.家庭人口数） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'实物疑点表2b'，sql）； //生成分析表

AddTable（'实物疑点表2b'）；

ShowMsg（'成功生成实物疑点表2b。'）；

sql：='select * from 实物疑点表2a union select * from 实物疑点表2b '；

CreateTempTable（'实物疑点表2'，sql）； //生成分析表

AddTable（'实物疑点表2'）；

ShowMsg（'成功生成实物疑点表2。'）；

sql：='select distinct 姓名，身份证号，家庭地址，入住时间，月缴存基数 from 实物疑点表2'；

CreateTempTable（'实物疑点表3'，sql）； //生成分析表

AddTable（'实物疑点表3'）；

ShowMsg（'成功生成实物疑点表3'）；

end.

（3）收集相关文档资料，进行调查取证，核实可疑问题，得出审计结论。（作者单位：安徽省审计厅）