PROMPT   病人取消住院后，自动删除掉病历相关的信息 
create or replace trigger TR_ZY_BRXXB0_AUPD_DZBLBRZT
after update of BRZT00
ON ZY_BRXXB0
for each row
-- MODIFICATION HISTORY
-- Person       Date        Comments
-- yangy        2013.09.22  create 病人取消住院后，自动删除掉病历相关的信息 DZBL-20130920-001；
-- xuxm         2018-12-06  增加出院的时候修改blxx01的出院日期
begin
  if (substr(:old.BRZT00,1,1) = '2') and (:new.BRZT00 = '1') then
      delete from ZS_BLXX01 where ZYID00 = :new.ZYID00;
      delete from ZS_BLJK00 where ZYID00 = :new.ZYID00;
      delete from ZS_BLPG00 where ZYID00 = :new.ZYID00;
      delete from ZS_BLLD00 where ZYID00 = :new.ZYID00;
  end if;
  if (:old.BRZT00<>:new.BRZT00) then
       update ZS_BLXX01 set CYRQ00=:new.SJCYRQ ,CYSJ00 = nvl(:new.SJCYSJ,'23:59:59') where ZYID00 = :new.ZYID00;
  end if;
 /*if (:new.BRZT00 <>:old.BRZT00 ) then
      update ZS_BLXX01 set dqksbh=:new.dqks00,YSZBH0=:new.yszid0  where ZYID00 = :new.ZYID00;
  end if;*/
end;
/