廉租房待遇合規(guī)性計(jì)算機(jī)審計(jì)探討

黃炎

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

一、計(jì)算機(jī)審計(jì)目標(biāo)

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

二、計(jì)算機(jī)審計(jì)切入點(diǎn)

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

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

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

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

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

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

4.2011年市區(qū)公積金繳存信息：?jiǎn)挝幻Q、姓名、身份證號(hào)、余額、月繳存基數(shù)、月繳存額、月份等。

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

四、計(jì)算機(jī)審計(jì)模型構(gòu)造

1.廉租房待遇合規(guī)性計(jì)算機(jī)審計(jì)實(shí)體關(guān)系圖

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

五、計(jì)算機(jī)審計(jì)重點(diǎn)及步驟

（一）檢查廉租房保障家庭是否已有住房或住房面積超標(biāo)準(zhǔn)

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

2.具體步驟：

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

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

具體ASL語(yǔ)句如下：

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

begin

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

CreateTempTable（'補(bǔ)貼疑點(diǎn)表1'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表1'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表1。'）；

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

CreateTempTable（'實(shí)物疑點(diǎn)表1'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表1'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表1分析表。'）；

end.

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

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

2.具體步驟：

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

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

具體ASL語(yǔ)句如下：

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

begin

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

CreateTempTable（'補(bǔ)貼疑點(diǎn)表2a'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表2a'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表2a。'）；

sql：='select 申請(qǐng)人，證件號(hào)碼，保障人口，補(bǔ)貼總金額，月繳存基數(shù)，月繳存額，月份 from [2011年貨幣補(bǔ)貼名單] a join [2011年公積金繳存信息] b on （a.證件號(hào)碼=b.身份證號(hào)） and （a.申請(qǐng)人=b.姓名） where （b.月繳存基數(shù)>（320*1.6*a.保障人口） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'補(bǔ)貼疑點(diǎn)表2b'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表2b'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表2b。'）；

sql：='select * from 補(bǔ)貼疑點(diǎn)表2a union select * from 補(bǔ)貼疑點(diǎn)表2b'；

CreateTempTable（'補(bǔ)貼疑點(diǎn)表2'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表2'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表2。'）；

sql：='Select distinct 證件號(hào)碼，申請(qǐng)人，補(bǔ)貼總金額 From 補(bǔ)貼疑點(diǎn)表2 '；

CreateTempTable（'補(bǔ)貼疑點(diǎn)表3'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表3'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表3。'）；

sql：='select a.姓名，a.身份證號(hào)，家庭人口數(shù)，家庭地址，住房面積，入住時(shí)間，月繳存基數(shù)，月繳存額，月份 from [2011年實(shí)物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號(hào)=b.身份證號(hào)） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（260*1.6*a.家庭人口數(shù)） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'實(shí)物疑點(diǎn)表2a'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表2a'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表2a。'）；

sql：='select a.姓名，a.身份證號(hào)，家庭人口數(shù)，家庭地址，住房面積，入住時(shí)間，月繳存基數(shù)，月繳存額，月份 from [2011年實(shí)物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號(hào)=b.身份證號(hào)） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（320*1.6*a.家庭人口數(shù)） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'實(shí)物疑點(diǎn)表2b'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表2b'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表2b。'）；

sql：='select * from 實(shí)物疑點(diǎn)表2a union select * from 實(shí)物疑點(diǎn)表2b '；

CreateTempTable（'實(shí)物疑點(diǎn)表2'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表2'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表2。'）；

sql：='select distinct 姓名，身份證號(hào)，家庭地址，入住時(shí)間，月繳存基數(shù) from 實(shí)物疑點(diǎn)表2'；

CreateTempTable（'實(shí)物疑點(diǎn)表3'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表3'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表3'）；

end.

（3）收集相關(guān)文檔資料，進(jìn)行調(diào)查取證，核實(shí)可疑問(wèn)題，得出審計(jì)結(jié)論。（作者單位：安徽省審計(jì)廳）

具體ASL語(yǔ)句如下：

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

begin

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

CreateTempTable（'補(bǔ)貼疑點(diǎn)表2a'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表2a'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表2a。'）；

sql：='select 申請(qǐng)人，證件號(hào)碼，保障人口，補(bǔ)貼總金額，月繳存基數(shù)，月繳存額，月份 from [2011年貨幣補(bǔ)貼名單] a join [2011年公積金繳存信息] b on （a.證件號(hào)碼=b.身份證號(hào)） and （a.申請(qǐng)人=b.姓名） where （b.月繳存基數(shù)>（320*1.6*a.保障人口） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'補(bǔ)貼疑點(diǎn)表2b'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表2b'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表2b。'）；

sql：='select * from 補(bǔ)貼疑點(diǎn)表2a union select * from 補(bǔ)貼疑點(diǎn)表2b'；

CreateTempTable（'補(bǔ)貼疑點(diǎn)表2'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表2'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表2。'）；

sql：='Select distinct 證件號(hào)碼，申請(qǐng)人，補(bǔ)貼總金額 From 補(bǔ)貼疑點(diǎn)表2 '；

CreateTempTable（'補(bǔ)貼疑點(diǎn)表3'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表3'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表3。'）；

sql：='select a.姓名，a.身份證號(hào)，家庭人口數(shù)，家庭地址，住房面積，入住時(shí)間，月繳存基數(shù)，月繳存額，月份 from [2011年實(shí)物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號(hào)=b.身份證號(hào)） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（260*1.6*a.家庭人口數(shù)） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'實(shí)物疑點(diǎn)表2a'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表2a'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表2a。'）；

sql：='select a.姓名，a.身份證號(hào)，家庭人口數(shù)，家庭地址，住房面積，入住時(shí)間，月繳存基數(shù)，月繳存額，月份 from [2011年實(shí)物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號(hào)=b.身份證號(hào)） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（320*1.6*a.家庭人口數(shù)） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'實(shí)物疑點(diǎn)表2b'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表2b'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表2b。'）；

sql：='select * from 實(shí)物疑點(diǎn)表2a union select * from 實(shí)物疑點(diǎn)表2b '；

CreateTempTable（'實(shí)物疑點(diǎn)表2'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表2'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表2。'）；

sql：='select distinct 姓名，身份證號(hào)，家庭地址，入住時(shí)間，月繳存基數(shù) from 實(shí)物疑點(diǎn)表2'；

CreateTempTable（'實(shí)物疑點(diǎn)表3'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表3'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表3'）；

end.

（3）收集相關(guān)文檔資料，進(jìn)行調(diào)查取證，核實(shí)可疑問(wèn)題，得出審計(jì)結(jié)論。（作者單位：安徽省審計(jì)廳）

具體ASL語(yǔ)句如下：

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

begin

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

CreateTempTable（'補(bǔ)貼疑點(diǎn)表2a'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表2a'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表2a。'）；

sql：='select 申請(qǐng)人，證件號(hào)碼，保障人口，補(bǔ)貼總金額，月繳存基數(shù)，月繳存額，月份 from [2011年貨幣補(bǔ)貼名單] a join [2011年公積金繳存信息] b on （a.證件號(hào)碼=b.身份證號(hào)） and （a.申請(qǐng)人=b.姓名） where （b.月繳存基數(shù)>（320*1.6*a.保障人口） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'補(bǔ)貼疑點(diǎn)表2b'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表2b'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表2b。'）；

sql：='select * from 補(bǔ)貼疑點(diǎn)表2a union select * from 補(bǔ)貼疑點(diǎn)表2b'；

CreateTempTable（'補(bǔ)貼疑點(diǎn)表2'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表2'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表2。'）；

sql：='Select distinct 證件號(hào)碼，申請(qǐng)人，補(bǔ)貼總金額 From 補(bǔ)貼疑點(diǎn)表2 '；

CreateTempTable（'補(bǔ)貼疑點(diǎn)表3'，sql）； //生成分析表

AddTable（'補(bǔ)貼疑點(diǎn)表3'）；

ShowMsg（'成功生成補(bǔ)貼疑點(diǎn)表3。'）；

sql：='select a.姓名，a.身份證號(hào)，家庭人口數(shù)，家庭地址，住房面積，入住時(shí)間，月繳存基數(shù)，月繳存額，月份 from [2011年實(shí)物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號(hào)=b.身份證號(hào)） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（260*1.6*a.家庭人口數(shù)） and b.月份 in（1，2，3，4，5，6）） '；

CreateTempTable（'實(shí)物疑點(diǎn)表2a'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表2a'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表2a。'）；

sql：='select a.姓名，a.身份證號(hào)，家庭人口數(shù)，家庭地址，住房面積，入住時(shí)間，月繳存基數(shù)，月繳存額，月份 from [2011年實(shí)物配租名單] a join [2011年公積金繳存信息] b on （a.身份證號(hào)=b.身份證號(hào)） and （a.姓名=b.姓名） where （b.月繳存基數(shù)>（320*1.6*a.家庭人口數(shù)） and b.月份 in（7，8，9，10，11，12）） '；

CreateTempTable（'實(shí)物疑點(diǎn)表2b'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表2b'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表2b。'）；

sql：='select * from 實(shí)物疑點(diǎn)表2a union select * from 實(shí)物疑點(diǎn)表2b '；

CreateTempTable（'實(shí)物疑點(diǎn)表2'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表2'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表2。'）；

sql：='select distinct 姓名，身份證號(hào)，家庭地址，入住時(shí)間，月繳存基數(shù) from 實(shí)物疑點(diǎn)表2'；

CreateTempTable（'實(shí)物疑點(diǎn)表3'，sql）； //生成分析表

AddTable（'實(shí)物疑點(diǎn)表3'）；

ShowMsg（'成功生成實(shí)物疑點(diǎn)表3'）；

end.

（3）收集相關(guān)文檔資料，進(jìn)行調(diào)查取證，核實(shí)可疑問(wèn)題，得出審計(jì)結(jié)論。（作者單位：安徽省審計(jì)廳）