因为医院里面的账目出了问题,为了跟踪问题,创建了以下存储过程和调度作业,每天晚上自动执行,方便自己也方便别人。。
创建将要被执行任务的存储过程(此存储过程每天转移数据,用于数据差值分析用) CREATE OR REPLACE PROCEDURE HYHIS.P_VALIDATESTORAGE1(p_locID number, v_periodID number, p_itemid number) /* (参数, 参数...) */
IS
v_balance NUMBER := 0;
v_dispenseCl NUMBER := 0;
v_dispenseIp NUMBER := 0;
v_code varchar2(20) := 0;
v_name varchar2(100) := 0;
v_count NUMBER := 1;
BEGIN
for v_cur in (select stuffID, sum(amount) as amount from ma_data_storage where locid = p_locID and stuffid = p_itemid group by stuffID) loop
select sum(debitamount - creditamount) into v_balance from ma_data_storageaccount
where stuffid = v_cur.stuffid and locid = p_locID and periodid = v_periodID and (STORAGETYPE is null or STORAGETYPE <> 8)
order by isperiodinit desc , accountdate, oid;
select sum(quantity) into v_dispenseCl from MA_CL_DATA_DISPENSE
where locid = p_locID and dispensetime >= trunc(sysdate) and isaccount = '0' and periodID = v_periodID
and itemid = v_cur.stuffid;
select sum(quantity) into v_dispenseIp from MA_IP_DATA_DISPENSE
where locid = p_locID and dispensetime >= trunc(sysdate) and isaccount = '0' and periodID = v_periodID
and itemid = v_cur.stuffid;
v_balance := v_balance - nvl(v_dispenseCl, 0) - nvl(v_dispenseIp, 0);
if v_balance<>v_cur.amount then
select STUFFCODE, stuffname into v_code, v_name from MA_STUFFITEM where STUFFID = v_cur.stuffid;
dbms_output.PUT_LINE(v_count||' 代码:'||v_code||' 名称:'||v_name||' 库存数:'||v_cur.amount||' 明细账结余:'||v_balance);
v_count := v_count + 1;
end if;
end loop;
commit;
END P_VALIDATESTORAGE1;
/
//创建调度作业存储过程
create or replace procedure P_JOBBER is
begin
//调用任务存储过程,这里可以根据业务需求写入相关逻辑
P_VALIDATESTORAGE(p_locID=> 50,v_periodID => 201309);
P_VALIDATESTORAGE(p_locID=> 51,v_periodID => 201309);
P_VALIDATESTORAGE(p_locID=> 52,v_periodID => 201309);
end P_JOBBER;
//创建定时作业,每天执行一次,此作业是数据库级的,不需要跑任何程序,减少不必要的编码麻烦和由程序调用失败导致的风险。
VARIABLE jobno number;
begin
DBMS_JOB.SUBMIT(:jobno,
'P_JOBBER;',
to_date('2013-09-25 21:00:00', 'yyyy-mm-dd HH24:mi:ss'),'sysdate+1/24/12');
commit;
end;