因为医院里面的账目出了问题,为了跟踪问题,创建了以下存储过程和调度作业,每天晚上自动执行,方便自己也方便别人。。
创建将要被执行任务的存储过程(此存储过程每天转移数据,用于数据差值分析用) 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;