黃炎
近幾年,我國大力推進(jìn)廉租房建設(shè),有效解決了城鎮(zhèn)中低收入人群的住房困難問題,切實(shí)保障和改善了民生,進(jìn)一步推動(dòng)了我國住房保障制度的完善和經(jīng)濟(jì)社會(huì)平穩(wěn)發(fā)展。但是,由于城鎮(zhèn)居民家庭的收入來源多樣、資產(chǎn)分布廣泛,而記錄居民家庭資產(chǎn)的各項(xiàng)數(shù)據(jù)分散在房產(chǎn)、公積金、社會(huì)保障、車輛等各個(gè)部門,沒有實(shí)現(xiàn)信息資源共享,因此,如何及時(shí)、有效地核查廉租房家庭的住房和經(jīng)濟(jì)狀況一直是一個(gè)棘手的問題。隨著國家信息化戰(zhàn)略的實(shí)施,各相關(guān)部門的業(yè)務(wù)數(shù)據(jù)不斷完善,通過計(jì)算機(jī)審計(jì)核查享受廉租房待遇的家庭是否具備規(guī)定的資格條件,成為一個(gè)有效的手段。
一、計(jì)算機(jī)審計(jì)目標(biāo)
通過檢查享受政府廉租房的人員是否為符合條件的城鎮(zhèn)中低收入家庭,堅(jiān)決查處違規(guī)騙保、損公肥私等侵害人民群眾利益的違法違規(guī)行為,促進(jìn)國家保障性住房政策落到實(shí)處,讓真正有住房需求和住房困難的城鎮(zhèn)低收入家庭享受廉租房待遇,保障和改善民生,維護(hù)社會(huì)和諧穩(wěn)定。
二、計(jì)算機(jī)審計(jì)切入點(diǎn)
一方面,將享受政府廉租房實(shí)物配租和貨幣補(bǔ)貼的人員名單與同期市區(qū)房產(chǎn)信息進(jìn)行比對,發(fā)現(xiàn)有住房或住房面積超標(biāo)準(zhǔn)的家庭違規(guī)享受廉租房保障待遇的問題線索;另一方面,將享受政府廉租房實(shí)物配租和貨幣補(bǔ)貼的人員名單與同期公積金繳存信息進(jìn)行比對,發(fā)現(xiàn)月收入超過城鎮(zhèn)中低收入線的家庭違規(guī)享受廉租房保障待遇的問題線索。
三、計(jì)算機(jī)審計(jì)所需數(shù)據(jù)
廉租房待遇合規(guī)性計(jì)算機(jī)審計(jì)所需數(shù)據(jù)資料主要有:
1.2011年實(shí)物配租名單:姓名、身份證號(hào)、家庭地址、家庭人口數(shù)、住房面積、入住時(shí)間、聯(lián)系方式。
2.2011年貨幣補(bǔ)貼名單:申請人、性別、證件號(hào)碼、保障人口、現(xiàn)住地址、人均面積、家庭情況、申請編號(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ū)公積金繳存信息:單位名稱、姓名、身份證號(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ù)國家和當(dāng)?shù)卣咭?guī)定,政府廉租房的保障對象必須是無住房或是人均住房面積低于13平方米的城鎮(zhèn)住房困難家庭。通過將已經(jīng)享受廉租房保障待遇的人員信息和市區(qū)房產(chǎn)登記信息進(jìn)行比對,查看有無住房不符合條件騙取或違規(guī)享受廉租房待遇的問題。
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語句如下:
var sql; //定義變量 sql:查詢
begin
sql:='select 申請人,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.申請人=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ù)國家和當(dāng)?shù)卣咭?guī)定,政府廉租房的保障對象必須是城鎮(zhèn)人均月收入在低保標(biāo)準(zhǔn)(當(dāng)?shù)厣习肽甑捅?biāo)準(zhǔn)為260元,下半年低保標(biāo)準(zhǔn)為320元)1.6倍以下的低收入家庭。通過將已經(jīng)享受廉租房保障待遇的人員信息和市區(qū)公積金繳存信息進(jìn)行比對,查看有無家庭月收入不符合條件騙取或違規(guī)享受廉租房待遇的問題。
2.具體步驟:
(1)分別取得2011年市區(qū)享受廉租房實(shí)物配租和貨幣補(bǔ)貼的人員名單、2011年市區(qū)公積金繳存信息后,進(jìn)行數(shù)據(jù)整理和轉(zhuǎn)換。
(2)篩選出公積金繳存信息與廉租房實(shí)物配租和貨幣補(bǔ)貼人員名單中姓名和身份證號(hào)重復(fù)的記錄,再設(shè)定條件篩選出其中月繳存基數(shù)超過當(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語句如下:
var sql; //定義變量 sql:查詢
begin
sql:='select 申請人,證件號(hào)碼,保障人口,補(bǔ)貼總金額,月繳存基數(shù),月繳存額,月份 from [2011年貨幣補(bǔ)貼名單] a join [2011年公積金繳存信息] b on (a.證件號(hào)碼=b.身份證號(hào)) and (a.申請人=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 申請人,證件號(hào)碼,保障人口,補(bǔ)貼總金額,月繳存基數(shù),月繳存額,月份 from [2011年貨幣補(bǔ)貼名單] a join [2011年公積金繳存信息] b on (a.證件號(hào)碼=b.身份證號(hào)) and (a.申請人=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)碼,申請人,補(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í)可疑問題,得出審計(jì)結(jié)論。(作者單位:安徽省審計(jì)廳)
具體ASL語句如下:
var sql; //定義變量 sql:查詢
begin
sql:='select 申請人,證件號(hào)碼,保障人口,補(bǔ)貼總金額,月繳存基數(shù),月繳存額,月份 from [2011年貨幣補(bǔ)貼名單] a join [2011年公積金繳存信息] b on (a.證件號(hào)碼=b.身份證號(hào)) and (a.申請人=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 申請人,證件號(hào)碼,保障人口,補(bǔ)貼總金額,月繳存基數(shù),月繳存額,月份 from [2011年貨幣補(bǔ)貼名單] a join [2011年公積金繳存信息] b on (a.證件號(hào)碼=b.身份證號(hào)) and (a.申請人=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)碼,申請人,補(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í)可疑問題,得出審計(jì)結(jié)論。(作者單位:安徽省審計(jì)廳)
具體ASL語句如下:
var sql; //定義變量 sql:查詢
begin
sql:='select 申請人,證件號(hào)碼,保障人口,補(bǔ)貼總金額,月繳存基數(shù),月繳存額,月份 from [2011年貨幣補(bǔ)貼名單] a join [2011年公積金繳存信息] b on (a.證件號(hào)碼=b.身份證號(hào)) and (a.申請人=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 申請人,證件號(hào)碼,保障人口,補(bǔ)貼總金額,月繳存基數(shù),月繳存額,月份 from [2011年貨幣補(bǔ)貼名單] a join [2011年公積金繳存信息] b on (a.證件號(hào)碼=b.身份證號(hào)) and (a.申請人=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)碼,申請人,補(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í)可疑問題,得出審計(jì)結(jié)論。(作者單位:安徽省審計(jì)廳)