CREATE OR REPLACE PROCEDURE SP_YF_DealWJZCF
-- MODIFICATION HISTORY
-- Person      Date        Comments
-- CSF         2008.12.01  创建过程自动清理超过规定时间的未记帐处方
-- CSF         2010.06.12  原来将这部分数据删除处理，现改成作废处理。
-- laijg       2012.03.30  科室领药往往不是当天处理，在每天的任务中会将过期处方作废，加上条件sfksly='N' by YF-20120322-001
-- ----------  ----------  ---------------------------------------------------------
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' AND SFKSLY='N';
    --update YF_ZYCF00 set CFZT00='3' where SRRQ00>=to_char(sysdate-30,'YYYYMMDD')
    --and SRRQ00<=to_char(sysdate-v_ts0000,'YYYYMMDD')  AND  CFZT00='0' AND SFKSLY='N';  --updaet by cici 20250425  住院不要自动作废
  end if;
  commit;
exception
  when others then
    RAISE_APPLICATION_ERROR(-20020, substrb(NVL(SQLERRM, '清理未记帐处方出错'),1,220));
    rollback;
end;