黃炎

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

一、計算機審計目標

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

二、計算機審計切入點

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

三、計算機審計所需數(shù)據(jù)

廉租房待遇合規(guī)性計算機審計所需數(shù)據(jù)資料主要有：

1.2011年實物配租名單：姓名、身份證號、家庭地址、家庭人口數(shù)、住房面積、入住時間、聯(lián)系方式。

2.2011年貨幣補貼名單：申請人、性別、證件號碼、保障人口、現(xiàn)住地址、人均面積、家庭情況、申請編號、聯(lián)系電話、補貼月數(shù)、補貼總金額等。

3.2011年年末市區(qū)房產(chǎn)登記信息：序號、房屋產(chǎn)權人、房屋產(chǎn)權登記號、房屋地址、產(chǎn)權人身份證號、面積、登記時間。

4.2011年市區(qū)公積金繳存信息：單位名稱、姓名、身份證號、余額、月繳存基數(shù)、月繳存額、月份等。

5.文檔資料：列明當?shù)叵硎芰夥看鲑Y格條件認定的文件、建設部等七部委出臺的《廉租住房保障辦法》及被審計單位電子數(shù)據(jù)的指標解釋等。

四、計算機審計模型構造

1.廉租房待遇合規(guī)性計算機審計實體關系圖

2.廉租房待遇合規(guī)性計算機審計數(shù)據(jù)關系表

五、計算機審計重點及步驟

（一）檢查廉租房保障家庭是否已有住房或住房面積超標準

1.審計思路：根據(jù)國家和當?shù)卣咭?guī)定，政府廉租房的保障對象必須是無住房或是人均住房面積低于13平方米的城鎮(zhèn)住房困難家庭。通過將已經(jīng)享受廉租房保障待遇的人員信息和市區(qū)房產(chǎn)登記信息進行比對，查看有無住房不符合條件騙取或違規(guī)享受廉租房待遇的問題。

2.具體步驟：

（1）分別取得2011年市區(qū)享受廉租房實物配租和貨幣補貼的人員名單、2011年市區(qū)公積金繳存信息后，進行數(shù)據(jù)整理和轉換。

（2）篩選出房產(chǎn)登記信息與廉租房實物配租和貨幣補貼人員名單中姓名和身份證號重復的記錄，再設定條件篩選出其中家庭實際有房產(chǎn)或是人均住房面積超出了13平方米的人員信息，得出房產(chǎn)不符合條件享受了廉租房待遇的疑點。

具體ASL語句如下：

var sql； //定義變量 sql：查詢

begin

sql：='select 申請人，a.證件號碼，保障人口，現(xiàn)住地址，補貼總金額，房屋產(chǎn)權人，房屋地址，面積，登記時間 from [2011年貨幣補貼名單] a join [2011年年末市區(qū)房產(chǎn)登記信息] b on （a.證件號碼=b.產(chǎn)權人身份證號） and （a.申請人=b.房屋產(chǎn)權人） where （b.面積/a.保障人口）>13'；

CreateTempTable（'補貼疑點表1'，sql）； //生成分析表

AddTable（'補貼疑點表1'）；

ShowMsg（'成功生成補貼疑點表1。'）；

sql：='select a.姓名，身份證號，家庭人口數(shù)，家庭地址，住房面積，入住時間，房屋地址，面積，登記時間 from [2011年實物配租名單] a join [2011年年末市區(qū)房產(chǎn)登記信息] b on （a.身份證號=b.產(chǎn)權人身份證號 and a.姓名=b.房屋產(chǎn)權人） where （b.面積/a.家庭人口數(shù)）>13'；

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

AddTable（'實物疑點表1'）；

ShowMsg（'成功生成實物疑點表1分析表。'）；

end.

（二）檢查廉租房保障家庭月收入是否超出城鎮(zhèn)中低收入線

1.審計思路：根據(jù)國家和當?shù)卣咭?guī)定，政府廉租房的保障對象必須是城鎮(zhèn)人均月收入在低保標準（當?shù)厣习肽甑捅藴蕿?60元，下半年低保標準為320元）1.6倍以下的低收入家庭。通過將已經(jīng)享受廉租房保障待遇的人員信息和市區(qū)公積金繳存信息進行比對，查看有無家庭月收入不符合條件騙取或違規(guī)享受廉租房待遇的問題。

2.具體步驟：

（1）分別取得2011年市區(qū)享受廉租房實物配租和貨幣補貼的人員名單、2011年市區(qū)公積金繳存信息后，進行數(shù)據(jù)整理和轉換。

（2）篩選出公積金繳存信息與廉租房實物配租和貨幣補貼人員名單中姓名和身份證號重復的記錄，再設定條件篩選出其中月繳存基數(shù)超過當?shù)爻鞘械褪杖霕藴实娜藛T信息，得出家庭人均月收入不符合條件享受了廉租房實物分房或貨幣補貼的疑點。城市家庭低收入標準為家庭人口數(shù)與當?shù)氐捅藴?.6倍的乘積，當?shù)氐捅藴实?.6倍上半年為416元=260元×1.6，下半年為512元=320元×1.6。

具體ASL語句如下：

var sql； //定義變量 sql：查詢

begin

sql：='select 申請人，證件號碼，保障人口，補貼總金額，月繳存基數(shù)，月繳存額，月份 from [2011年貨幣補貼名單] a join [2011年公積金繳存信息] b on （a.證件號碼=b.身份證號） and （a.申請人=b.姓名） where （b.月繳存基數(shù)>（260*1.6*a.保障人口） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'補貼疑點表2a'，sql）； //生成分析表

AddTable（'補貼疑點表2a'）；

ShowMsg（'成功生成補貼疑點表2a。'）；

sql：='select 申請人，證件號碼，保障人口，補貼總金額，月繳存基數(shù)，月繳存額，月份 from [2011年貨幣補貼名單] a join [2011年公積金繳存信息] b on （a.證件號碼=b.身份證號） and （a.申請人=b.姓名） where （b.月繳存基數(shù)>（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.身份證號，家庭人口數(shù)，家庭地址，住房面積，入住時間，月繳存基數(shù)，月繳存額，月份 from [2011年實物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號=b.身份證號） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（260*1.6*a.家庭人口數(shù)） and b.月份 in（1，2，3，4，5，6）） '；

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

AddTable（'實物疑點表2a'）；

ShowMsg（'成功生成實物疑點表2a。'）；

sql：='select a.姓名，a.身份證號，家庭人口數(shù)，家庭地址，住房面積，入住時間，月繳存基數(shù)，月繳存額，月份 from [2011年實物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號=b.身份證號） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（320*1.6*a.家庭人口數(shù)） 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 姓名，身份證號，家庭地址，入住時間，月繳存基數(shù) from 實物疑點表2'；

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

AddTable（'實物疑點表3'）；

ShowMsg（'成功生成實物疑點表3'）；

end.

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

具體ASL語句如下：

var sql； //定義變量 sql：查詢

begin

sql：='select 申請人，證件號碼，保障人口，補貼總金額，月繳存基數(shù)，月繳存額，月份 from [2011年貨幣補貼名單] a join [2011年公積金繳存信息] b on （a.證件號碼=b.身份證號） and （a.申請人=b.姓名） where （b.月繳存基數(shù)>（260*1.6*a.保障人口） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'補貼疑點表2a'，sql）； //生成分析表

AddTable（'補貼疑點表2a'）；

ShowMsg（'成功生成補貼疑點表2a。'）；

sql：='select 申請人，證件號碼，保障人口，補貼總金額，月繳存基數(shù)，月繳存額，月份 from [2011年貨幣補貼名單] a join [2011年公積金繳存信息] b on （a.證件號碼=b.身份證號） and （a.申請人=b.姓名） where （b.月繳存基數(shù)>（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.身份證號，家庭人口數(shù)，家庭地址，住房面積，入住時間，月繳存基數(shù)，月繳存額，月份 from [2011年實物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號=b.身份證號） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（260*1.6*a.家庭人口數(shù)） and b.月份 in（1，2，3，4，5，6）） '；

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

AddTable（'實物疑點表2a'）；

ShowMsg（'成功生成實物疑點表2a。'）；

sql：='select a.姓名，a.身份證號，家庭人口數(shù)，家庭地址，住房面積，入住時間，月繳存基數(shù)，月繳存額，月份 from [2011年實物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號=b.身份證號） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（320*1.6*a.家庭人口數(shù)） 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 姓名，身份證號，家庭地址，入住時間，月繳存基數(shù) from 實物疑點表2'；

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

AddTable（'實物疑點表3'）；

ShowMsg（'成功生成實物疑點表3'）；

end.

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

具體ASL語句如下：

var sql； //定義變量 sql：查詢

begin

sql：='select 申請人，證件號碼，保障人口，補貼總金額，月繳存基數(shù)，月繳存額，月份 from [2011年貨幣補貼名單] a join [2011年公積金繳存信息] b on （a.證件號碼=b.身份證號） and （a.申請人=b.姓名） where （b.月繳存基數(shù)>（260*1.6*a.保障人口） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'補貼疑點表2a'，sql）； //生成分析表

AddTable（'補貼疑點表2a'）；

ShowMsg（'成功生成補貼疑點表2a。'）；

sql：='select 申請人，證件號碼，保障人口，補貼總金額，月繳存基數(shù)，月繳存額，月份 from [2011年貨幣補貼名單] a join [2011年公積金繳存信息] b on （a.證件號碼=b.身份證號） and （a.申請人=b.姓名） where （b.月繳存基數(shù)>（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.身份證號，家庭人口數(shù)，家庭地址，住房面積，入住時間，月繳存基數(shù)，月繳存額，月份 from [2011年實物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號=b.身份證號） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（260*1.6*a.家庭人口數(shù)） and b.月份 in（1，2，3，4，5，6）） '；

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

AddTable（'實物疑點表2a'）；

ShowMsg（'成功生成實物疑點表2a。'）；

sql：='select a.姓名，a.身份證號，家庭人口數(shù)，家庭地址，住房面積，入住時間，月繳存基數(shù)，月繳存額，月份 from [2011年實物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號=b.身份證號） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（320*1.6*a.家庭人口數(shù)） 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 姓名，身份證號，家庭地址，入住時間，月繳存基數(shù) from 實物疑點表2'；

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

AddTable（'實物疑點表3'）；

ShowMsg（'成功生成實物疑點表3'）；

end.

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