稽核存储过程

CREATE OR REPLACE PROCEDURE bi_audit_status_log_p(vs_gather_date varchar2,
vs_dept_id varchar2,
vs_account varchar2,
vs_old_status number,
vs_new_status number) IS
-------------------------------------------------------------------
--营业收入数据稽核记录日志信息
-------------------------------------------------------------------
BEGIN
DECLARE
vs_username varchar2(20);
BEGIN
--操作人姓名
SELECT t.name
INTO vs_username
FROM employee t
WHERE t.account = vs_account;

INSERT INTO bi_audit_detail_log
(order_id,
dept_id,
dept_name,
area_id,
area_name,
gather_date,
audit_status1,
audit_status2,
audit_account,
audit_person,
audit_date)
SELECT to_char(sysdate, 'yyyymmdd-hh24miss'),
vs_dept_id,
d.dept_name,
d.belongs_area,
a.area_name,
vs_gather_date,
vs_old_status,
vs_new_status,
vs_account,
vs_username,
SYSDATE
FROM dept_info_t d, area_info_t a
WHERE d.belongs_area = a.area_id
AND d.dept_id = vs_dept_id;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
DBMS_OUTPUT.put_line('营业收入数据稽核记录日志信息失败！Reason:' || SQLERRM);
END;
END bi_audit_status_log_p;