廉租房待遇合規性計算機審計探討

黃炎

近幾年，我國大力推進廉租房建設，有效解決了城鎮中低收入人群的住房困難問題，切實保障和改善了民生，進一步推動了我國住房保障制度的完善和經濟社會平穩發展。但是，由于城鎮居民家庭的收入來源多樣、資產分布廣泛，而記錄居民家庭資產的各項數據分散在房產、公積金、社會保障、車輛等各個部門，沒有實現信息資源共享，因此，如何及時、有效地核查廉租房家庭的住房和經濟狀況一直是一個棘手的問題。隨著國家信息化戰略的實施，各相關部門的業務數據不斷完善，通過計算機審計核查享受廉租房待遇的家庭是否具備規定的資格條件，成為一個有效的手段。

一、計算機審計目標

通過檢查享受政府廉租房的人員是否為符合條件的城鎮中低收入家庭，堅決查處違規騙保、損公肥私等侵害人民群眾利益的違法違規行為，促進國家保障性住房政策落到實處，讓真正有住房需求和住房困難的城鎮低收入家庭享受廉租房待遇，保障和改善民生，維護社會和諧穩定。

二、計算機審計切入點

一方面，將享受政府廉租房實物配租和貨幣補貼的人員名單與同期市區房產信息進行比對，發現有住房或住房面積超標準的家庭違規享受廉租房保障待遇的問題線索；另一方面，將享受政府廉租房實物配租和貨幣補貼的人員名單與同期公積金繳存信息進行比對，發現月收入超過城鎮中低收入線的家庭違規享受廉租房保障待遇的問題線索。

三、計算機審計所需數據

廉租房待遇合規性計算機審計所需數據資料主要有：

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）收集相關文檔資料，進行調查取證，核實可疑問題，得出審計結論。（作者單位：安徽省審計廳）