CREATE OR REPLACE 
PROCEDURE sp_yf_dealwjzcf_mzcf
-- MODIFICATION HISTORY
-- Person      Date        Comments
-- CSF         2008.12.01  创建过程自动清理超过规定时间的未记帐处方
-- CSF         2010.06.12  原来将这部分数据删除处理，现改成作废处理。
-- ----------  ----------  ---------------------------------------------------------
as
v_ts0000 number(2,0);
begin
  --取出清理作废处方的天数参数
  begin
    select to_number(trim(value0)) into v_ts0000 from xt_xtcs00 where name00='YF_WJZCFZFQX';
  exception
    When Others Then
      v_ts0000:=0;
  end;
  if v_ts0000>0 then
    update YF_MZCF00 set CFZT00='3' where SRRQ00>=to_char(sysdate-30,'YYYYMMDD')  
    and SRRQ00<=to_char(sysdate-v_ts0000,'YYYYMMDD')  AND  CFZT00='0';              
  end if;
  commit;
exception
  when others then
    RAISE_APPLICATION_ERROR(-20020, substrb(NVL(SQLERRM, '清理未记帐处方出错'),1,220));
    rollback;
end;
/