CREATE OR REPLACE TRIGGER TR_JY_JYJG00_BINS BEFORE INSERT OR UPDATE ON SD_JY.JY_JYJG00 REFERENCING OLD AS OLD NEW AS NEW FOR EACH ROW declare V_count0 number; V_JYYWID JY_YW0000.JYYWID%type; V_ZLXMID JY_YW0000.ZLXMID%type; V_XB0000 JY_YW0000.XB0000%type; V_NL0000 JY_YW0000.NL0000%type; V_NLDW00 JY_YW0000.NLDW00%type; V_BBID00 JY_YW0000.BBID00%type; V_BGR000 JY_YW0000.BGR000%type; V_CKZNL0 JY_BGXMZD.CKZNL0%type; V_CKZXB0 JY_BGXMZD.CKZXB0%type; V_CKZBB0 JY_BGXMZD.CKZBB0%type; V_QSZ000 JY_BGXMZD.QSZ000%type; V_DW0000 JY_BGXMZD.DW0000%type; V_JGLX00 JY_BGXMZD.JGLX00%type; V_JD0000 JY_BGXMZD.JD0000%type; V_XXTS00 JY_XMCKZ0.XXTS00%type; V_SXTS00 JY_XMCKZ0.SXTS00%type; V_JYJG00 JY_JYJG00_TEMP.JYJG00%type; V_YQZ000 JY_XMCKZ0.YQZ000%type; V_ZCFWNR JY_XMCKZ0.ZCFWNR%type; V_SQKS00 JY_YW0000.SQKS00%type; V_CKZKS0 JY_BGXMZD.CKZKS0%type; V_CKZZD0 JY_BGXMZD.CKZZD0%type; V_ZDID00 JY_YW0000.ZDID00%type; V_MZZYBZ JY_YW0000.MZZYBZ%TYPE; V_ZYGHID JY_YW0000.ZYGHID%TYPE; V_VALUE0 char(1); V_JGFS00 varchar2(100); V_JYJG01 number(20,5); lvJY_WFBTGXTPDZCBZYQ number(5); E_MODifY exception; Vcount number(1); JY_ZDBGXMTSJG XT_XTCS00.VALUE0%type; F_CSZ000 varchar2(200); F_BGXMID JY_JYJG00.BGXMID%type; F_JYJG00 JY_JYJG00.JYJG00%type; V_JYJG JY_JYJG00.JYJG00%type; JY_BGXJGZCBZYQ XT_XTCS00.VALUE0%type; v_count number; --Person Date Comments --chenyw 2011.10.08 创建触发器 --chenyw 2013.01.23 增加年龄单位为'W'(周) by LIS-20130118-001 --jinfl 2013.05.27 增加是否超疫情值的判定 LIS-20130422-002 --chenyw 2015.05.19 外送标本导入结果的时候不通过本系统判断结果超出标志 for LIS-20150519-001 --xutz 2016.07.30 增加条件当SJLY00为空时，才通过参考上下限判断结果正常标志 for LIS-20160802-001 --xutz 2016.08.19 不清空JGZCBZ,且当SJLY00为空时，判断LIS系统的参考范围 for LIS-20160818-002 --daihq 2017.01.18 增加写入FCXX00,FCSX00 for LIS9-20170116-002 --Nixj 2018.02.28 修正危急值只显示一个箭头的问题 for LIS9-20180228-001 --chenhn 2018.12.06 修改判断列表型结果(L)的时候用,隔开，而不是|。 for LIS9-20181203-001 --chenhn 2020.02.18 增加参数JY_ZDBGXMTSJG，指定某些报告项目不显示上下限（↑↓） for LIS9-20200114-001 --Nixj 2020.04.27 科学计数法的数据处理 for LIS9-20200424-003 --Nixj 2020.05.21 增加正常范围内容判断 for LIS9-20200424-002 --wusd 2020.06.09 优化参考范围涉及年龄的判断 for LIS9-20200521-002 --Nixj 2020.07.10 修正错误归档 for LIS9-20200616-002 --Nixj 2021.04.18 增加科室参考值 for LIS9-20210418-004 --Nixj 2021.05.25 归档触发器 for LIS9-20210524-001 --Nixj 2021.06.11 增加诊断参考值 for LIS9-20210506-001 --wusd 2021.06.15 归档需求 for LIS9-20210615-001 --Nixj 2022.02.24 归档需求 for LIS9-20220224-002 --wusd 2022.06.16 超警戒值更新业务表 for LIS9-20220607-002 --Nixj 2022.07.28 新增针对指定仪器使用写入结果正常标志 for LIS9-20220728-001 begin :new.JYJG00 := trim(:new.JYJG00); if :new.JYJG00 = '' then :new.JYJG00 := NULL; end if; begin select '|'||trim(value0)||'|' into JY_ZDBGXMTSJG from xt_xtcs00 where name00 in ('JY_ZDBGXMTSJG'); exception when others then JY_ZDBGXMTSJG:='N'; end; begin select value0 into JY_BGXJGZCBZYQ from XT_XTCS00 where name00='JY_BGXJGZCBZYQ'; exception when others then JY_BGXJGZCBZYQ:='N'; end; begin select instr(','||trim(value0)||',',','||trim(:new.yqdh00)||',') into lvJY_WFBTGXTPDZCBZYQ from xt_xtcs00 where name00 in ('JY_WFBTGXTPDZCBZYQ'); exception when others then lvJY_WFBTGXTPDZCBZYQ:=0; end; if :new.BGXMID < 999992 then select JGLX00,JD0000 into V_JGLX00,V_JD0000 from JY_BGXMZD where BGXMID=:new.BGXMID; end if; if ((V_JGLX00 = 'N') or (V_JGLX00 = 'C')) and (:new.JYJG00 IS NOT NULL) then V_JGFS00 := '9999999999999999999.'; V_JGFS00 := rpad(V_JGFS00,length(V_JGFS00)+V_JD0000,'9'); begin V_JYJG01 := ROUND(:new.JYJG00,V_JD0000); select trim(to_char(V_JYJG01,V_JGFS00)) into :new.JYJG00 from DUAL; if instr(:new.JYJG00,'-.') = 1 then :new.JYJG00 := '-0.'||substr(:new.JYJG00,3,length(:new.JYJG00)); end if; if instr(:new.JYJG00,'.') = 1 then :new.JYJG00 := '0'||:new.JYJG00; end if; if instr(:new.JYJG00,'.') = length(:new.JYJG00) then :new.JYJG00 := substr(:new.JYJG00,1,length(:new.JYJG00)-1); end if; exception when others then :new.JYJG00 := :new.JYJG00; end; end if; begin select count(*) into V_count0 from JY_YW0000_CKZ000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00; exception when others then V_count0:=0; end; if V_count0 > 0 then select JYYWID,ZLXMID,XB0000,NL0000,NLDW00,BBID00 into V_JYYWID,V_ZLXMID,V_XB0000,V_NL0000,V_NLDW00,V_BBID00 from JY_YW0000_CKZ000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00 and rownum=1; else begin select count(*) into V_count0 from JY_YW0000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00; exception when others then V_count0:=0; end; if V_count0 > 0 then select JYYWID,ZLXMID,XB0000,NL0000,NLDW00,BBID00 into V_JYYWID,V_ZLXMID,V_XB0000,V_NL0000,V_NLDW00,V_BBID00 from JY_YW0000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00 and rownum=1; select XB0000,NL0000,NLDW00,BBID00 into V_XB0000,V_NL0000,V_NLDW00,V_BBID00 from JY_YW0000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00 and rownum=1; end if; end if; if :new.BGXMID > 999993 then return; end if; if lvJY_WFBTGXTPDZCBZYQ<>0 then return; end if; -- if :new.SJLY00 is null then -- :new.JGZCBZ := NULL; -- :new.SFCJJZ := 'N'; -- :new.SFCYQZ := 'N'; -- end if; :new.SFCYQZ := 'N'; begin select count(*) into V_count0 from JY_YW0000_CKZ000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00; exception when others then V_count0:=0; end; if V_count0 > 0 then select JYYWID,ZLXMID,XB0000,NL0000,NLDW00,BBID00 into V_JYYWID,V_ZLXMID,V_XB0000,V_NL0000,V_NLDW00,V_BBID00 from JY_YW0000_CKZ000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00 and rownum=1; else begin select count(*) into V_count0 from JY_YW0000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00; exception when others then V_count0:=0; end; if V_count0 > 0 then select JYYWID,ZLXMID,XB0000,NL0000,NLDW00,BBID00 into V_JYYWID,V_ZLXMID,V_XB0000,V_NL0000,V_NLDW00,V_BBID00 from JY_YW0000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00 and rownum=1; select XB0000,NL0000,NLDW00,BBID00 into V_XB0000,V_NL0000,V_NLDW00,V_BBID00 from JY_YW0000 where YBH000=:new.YBH000 and PYRQ00=:new.PYRQ00 and rownum=1; end if; end if; begin select CKZNL0,CKZXB0,CKZBB0,QSZ000,DW0000,CKZKS0,CKZZD0 into V_CKZNL0,V_CKZXB0,V_CKZBB0,V_QSZ000,V_DW0000,V_CKZKS0,V_CKZZD0 from JY_BGXMZD where BGXMID=:new.BGXMID; exception when NO_DATA_FOUND then return; end; begin SELECT MZZYBZ,ZYGHID INTO V_mZZYBZ,V_ZYGHID FROM JY_YW0000 where YBH000=:NEW.YBH000 AND PYRQ00=:NEW.PYRQ00 AND ROWNUM=1; if V_mZZYBZ = '0' then select trim(ICD900) into V_ZDID00 from YS_BRZDXX where GHID00 = V_ZYGHID and ZZDBZ0 = '3' and rownum=1; else select count(*) into V_COUNT0 from BQ_BRZDXX where ZYID00 = V_ZYGHID and ZDLB00='2' and rownum=1; if V_COUNT0<>0 then select trim(ZDM000) into V_ZDID00 from BQ_BRZDXX where ZYID00 = V_ZYGHID and ZDLB00='2' and rownum=1; else select trim(ZDM000) into V_ZDID00 from BQ_BRZDXX where ZYID00 = V_ZYGHID and ZDLB00='3' and rownum=1; end if; end if; exception when NO_DATA_FOUND then V_ZDID00 := '0'; end; if V_CKZZD0='Y' Then select count(1) into v_count from jy_xmckz0 WHERE BGXMID=:NEW.BGXMID AND ZDID00=V_ZDID00; if v_count=0 then V_ZDID00:='0'; end if; end if; /** begin select ZDID00 into V_ZDID00 from JY_YW0000 where YBH000=:NEW.YBH000 AND PYRQ00=:NEW.PYRQ00 AND ROWNUM=1; exception when others then V_ZDID00:='0'; end; **/ if V_CKZKS0='Y' then begin select SQKS00 into V_SQKS00 from JY_YW0000 where JYYWID=:new.JYYWID; exception when NO_DATA_FOUND then V_SQKS00:=0; end; select count(*) into v_count from JY_XMCKZ0 where KSBH00=V_SQKS00 and BGXMID=:new.BGXMID ; if v_count>0 then if V_CKZNL0 = 'Y' then select a.ckxx00,a.cksx00,a.ckfw00,a.jjzsx0,a.jjzxx0,XXTS00,SXTS00,a.YQZ000,a.FCXX00,a.FCSX00 into :new.CKXX00,:new.CKSX00,:new.CKFW00,:new.JJZSX0,:new.JJZXX0,V_XXTS00,V_SXTS00,V_YQZ000,:new.FCXX00,:new.FCSX00 from JY_XMCKZ0 A where BGXMID=:new.BGXMID and nvl(XBDM00,'W')=nvl(decode(V_CKZXB0,'Y',V_XB0000,XBDM00),'W') and nvl(BBID00,0)=nvl(decode(V_CKZBB0,'Y',V_BBID00,BBID00),0) --wusd 2020.06.09优化参考范围涉及年龄的判断 for LIS9-20200521-002 and decode(V_NLDW00,'T','D',V_NLDW00)=A.NLDW00 and decode(V_NLDW00,'Y',to_number(V_NL0000)*365,'M',to_number(V_NL0000)*30,'W',to_number(V_NL0000)*7,to_number(V_NL0000)) >=decode(A.NLDW00,'Y',nvl(A.NLXX00,0)*365, 'M',nvl(A.NLXX00,0)*30, 'W',nvl(A.NLXX00,0)*7, nvl(A.NLXX00,0)) and decode(V_NLDW00,'Y',to_number(V_NL0000)*365,'M',to_number(V_NL0000)*30,'W',to_number(V_NL0000)*7,to_number(V_NL0000)) <=decode(A.NLDW00,'Y',nvl(A.NLSX00,180)*365, 'M',nvl(A.NLSX00,180)*30, 'W',nvl(A.NLSX00,1200)*7, nvl(A.NLSX00,180)) and nvl(ZDID00,'0')=nvl(decode(V_CKZZD0,'Y',V_ZDID00,ZDID00),'0') and KSBH00=V_SQKS00 and rownum=1; else select a.ckxx00,a.cksx00,a.ckfw00,a.jjzsx0,a.jjzxx0,XXTS00,SXTS00,a.YQZ000,a.FCXX00,a.FCSX00 into :new.CKXX00,:new.CKSX00,:new.CKFW00,:new.JJZSX0,:new.JJZXX0,V_XXTS00,V_SXTS00,V_YQZ000,:new.FCXX00,:new.FCSX00 from JY_XMCKZ0 A where BGXMID=:new.BGXMID and nvl(XBDM00,'W')=nvl(decode(V_CKZXB0,'Y',V_XB0000,XBDM00),'W') and nvl(BBID00,0)=nvl(decode(V_CKZBB0,'Y',V_BBID00,BBID00),0) and nvl(ZDID00,'0')=nvl(decode(V_CKZZD0,'Y',V_ZDID00,ZDID00),'0') and KSBH00=V_SQKS00 and rownum=1; end if; else if V_CKZNL0 = 'Y' then select a.ckxx00,a.cksx00,a.ckfw00,a.jjzsx0,a.jjzxx0,XXTS00,SXTS00,a.YQZ000,a.FCXX00,a.FCSX00 into :new.CKXX00,:new.CKSX00,:new.CKFW00,:new.JJZSX0,:new.JJZXX0,V_XXTS00,V_SXTS00,V_YQZ000,:new.FCXX00,:new.FCSX00 from JY_XMCKZ0 A where BGXMID=:new.BGXMID and nvl(XBDM00,'W')=nvl(decode(V_CKZXB0,'Y',V_XB0000,XBDM00),'W') and nvl(BBID00,0)=nvl(decode(V_CKZBB0,'Y',V_BBID00,BBID00),0) --wusd 2020.06.09优化参考范围涉及年龄的判断 for LIS9-20200521-002 and decode(V_NLDW00,'T','D',V_NLDW00)=A.NLDW00 and decode(V_NLDW00,'Y',to_number(V_NL0000)*365,'M',to_number(V_NL0000)*30,'W',to_number(V_NL0000)*7,to_number(V_NL0000)) >=decode(A.NLDW00,'Y',nvl(A.NLXX00,0)*365, 'M',nvl(A.NLXX00,0)*30, 'W',nvl(A.NLXX00,0)*7, nvl(A.NLXX00,0)) and decode(V_NLDW00,'Y',to_number(V_NL0000)*365,'M',to_number(V_NL0000)*30,'W',to_number(V_NL0000)*7,to_number(V_NL0000)) <=decode(A.NLDW00,'Y',nvl(A.NLSX00,180)*365, 'M',nvl(A.NLSX00,180)*30, 'W',nvl(A.NLSX00,1200)*7, nvl(A.NLSX00,180)) and nvl(ZDID00,'0')=nvl(decode(V_CKZZD0,'Y',V_ZDID00,ZDID00),'0') and nvl(KSBH00,0)=0 and rownum=1; --insert into jy_jglog0 values ('ddddd'); else select a.ckxx00,a.cksx00,a.ckfw00,a.jjzsx0,a.jjzxx0,XXTS00,SXTS00,a.YQZ000,a.FCXX00,a.FCSX00 into :new.CKXX00,:new.CKSX00,:new.CKFW00,:new.JJZSX0,:new.JJZXX0,V_XXTS00,V_SXTS00,V_YQZ000,:new.FCXX00,:new.FCSX00 from JY_XMCKZ0 A where BGXMID=:new.BGXMID and nvl(XBDM00,'W')=nvl(decode(V_CKZXB0,'Y',V_XB0000,XBDM00),'W') and nvl(BBID00,0)=nvl(decode(V_CKZBB0,'Y',V_BBID00,BBID00),0) and nvl(ZDID00,'0')=nvl(decode(V_CKZZD0,'Y',V_ZDID00,ZDID00),'0') and nvl(KSBH00,0)=0 and rownum=1; -- insert into jy_jglog0 values ('cccccc'); end if; end if; else if V_CKZNL0 = 'Y' then select a.ckxx00,a.cksx00,a.ckfw00,a.jjzsx0,a.jjzxx0,XXTS00,SXTS00,a.YQZ000 into :new.CKXX00,:new.CKSX00,:new.CKFW00,:new.JJZSX0,:new.JJZXX0,V_XXTS00,V_SXTS00,V_YQZ000 from JY_XMCKZ0 A where BGXMID=:new.BGXMID and nvl(XBDM00,'W')=nvl(decode(V_CKZXB0,'Y',V_XB0000,XBDM00),'W') and nvl(BBID00,0)=nvl(decode(V_CKZBB0,'Y',V_BBID00,BBID00),0) and decode(V_NLDW00,'M',to_number(V_NL0000)*30,'W',to_number(V_NL0000)*7,to_number(V_NL0000))>=decode(A.NLDW00,'M',nvl(A.NLXX00,0)*30,'W',nvl(A.NLXX00,0)*7,nvl(A.NLXX00,0)) and decode(V_NLDW00,'M',to_number(V_NL0000)*30,'W',to_number(V_NL0000)*7,to_number(V_NL0000))<=decode(A.NLDW00,'M',nvl(A.NLSX00,180)*30,'W',nvl(A.NLSX00,1200)*7,nvl(A.NLSX00,180)) and nvl(ZDID00,'0')=nvl(decode(V_CKZZD0,'Y',V_ZDID00,ZDID00),'0') and decode(V_NLDW00,'Y','Y','D','D','M')=decode(A.NLDW00,'Y','Y','D','D','M') and rownum=1; -- insert into jy_jglog0 values ('bbbbb'); else select a.ckxx00,a.cksx00,a.ckfw00,a.jjzsx0,a.jjzxx0,XXTS00,SXTS00,a.YQZ000 into :new.CKXX00,:new.CKSX00,:new.CKFW00,:new.JJZSX0,:new.JJZXX0,V_XXTS00,V_SXTS00,V_YQZ000 from JY_XMCKZ0 A where BGXMID=:new.BGXMID and nvl(XBDM00,'W')=nvl(decode(V_CKZXB0,'Y',V_XB0000,XBDM00),'W') and nvl(BBID00,0)=nvl(decode(V_CKZBB0,'Y',V_BBID00,BBID00),0) and nvl(ZDID00,'0')=nvl(decode(V_CKZZD0,'Y',V_ZDID00,ZDID00),'0') and rownum=1; --insert into jy_jglog0 values (:NEW.JYYWID||' aaaaaaa'); end if; end if; if (:new.CKFW00 IS NULL) or (trim(:new.CKFW00) = '') then return; end if; if instr(','||JY_BGXJGZCBZYQ||',',','||:new.YQDH00||',')>0 then return; end if; if nvl(:new.SJLY00,'0')='0' then if (V_JGLX00 = 'N') or (V_JGLX00 = 'C') then :new.JYJG00:=trim(:new.JYJG00); if(instr(:new.JYJG00,'E+')>0) then begin V_JYJG:=to_number(trim(substr(:new.JYJG00,1,instr(:new.JYJG00,'E+')-1)))*power(10,to_number(trim(substr(:new.JYJG00,instr(:new.JYJG00,'E+')+2,2)))); exception when others then V_JYJG := :new.JYJG00; end; elsif (instr(:new.JYJG00,'*10^')>0) then begin V_JYJG:=to_number(trim(substr(:new.JYJG00,1,instr(:new.JYJG00,'*10^')-1)))*power(10,to_number(trim(substr(:new.JYJG00,instr(:new.JYJG00,'*10^')+4,2)))); exception when others then V_JYJG := :new.JYJG00; end; else V_JYJG := :new.JYJG00; end if; begin if to_number(V_JYJG) > to_number(:new.CKSX00) then :new.JGZCBZ := V_SXTS00; end if; exception when others then :new.JGZCBZ := NULL; end; begin if to_number(V_JYJG) < to_number(:new.CKXX00) then :new.JGZCBZ := V_XXTS00; end if; exception when others then :new.JGZCBZ := NULL; end; begin if (to_number(V_JYJG) > to_number(:new.JJZSX0)) then :new.SFCJJZ := 'Y'; :new.JGZCBZ :='↑↑'; elsif (to_number(V_JYJG) < to_number(:new.JJZXX0)) then :new.SFCJJZ := 'Y'; :new.JGZCBZ :='↓↓'; end if; exception when others then :new.SFCJJZ := 'N'; end; if instr(V_JYJG,'>') = 1 then if instr(V_JYJG,'>=') = 1 then V_JYJG00 := substr(V_JYJG,3,length(V_JYJG)); else V_JYJG00 := substr(V_JYJG,2,length(V_JYJG)); end if; begin if to_number(V_JYJG00)+0.0001 > to_number(:new.CKSX00) then :new.JGZCBZ := V_SXTS00; end if; exception when others then :new.JGZCBZ := NULL; end; begin if to_number(V_JYJG00)+0.0001 > to_number(:new.JJZSX0) then :new.SFCJJZ := 'Y'; :new.JGZCBZ :='↑↑'; end if; exception when others then :new.SFCJJZ := 'N'; end; end if; if instr(V_JYJG,'<') = 1 then if instr(V_JYJG,'<=') = 1 then V_JYJG00 := substr(V_JYJG,3,length(V_JYJG)); else V_JYJG00 := substr(V_JYJG,2,length(V_JYJG)); end if; begin if to_number(V_JYJG00)-0.0001 < to_number(:new.CKXX00) then :new.JGZCBZ := V_XXTS00; end if; exception when others then :new.JGZCBZ := NULL; end; begin if to_number(V_JYJG00)-0.0001 < to_number(:new.JJZXX0) then :new.SFCJJZ := 'Y'; :new.JGZCBZ :='↓↓'; end if; exception when others then :new.SFCJJZ := 'N'; end; end if; end if; select ZCFWNR into V_ZCFWNR from JY_XMCKZ0 where BGXMID=:new.BGXMID; if (V_JGLX00 = 'L') or (V_JGLX00 = 'D') or (V_JGLX00 = 'T') then if (instr(trim('|'||:new.CKFW00)||'|','|'||:new.JYJG00||'|',1) = 0) and (instr(trim('|'||V_ZCFWNR)||'|','|'||:new.JYJG00||'|',1) = 0)then :new.JGZCBZ := V_SXTS00; end if; if (V_YQZ000<>'') and (V_YQZ000 is not null ) and (instr(trim('|'||V_YQZ000)||'|','|'||:new.JYJG00||'|',1) =0) then :new.SFCYQZ := 'Y'; end if; end if; --指定某些报告项目id为特定的结果时不显示上下限 while length(JY_ZDBGXMTSJG)>2 loop F_CSZ000 :=substr(JY_ZDBGXMTSJG,instr(JY_ZDBGXMTSJG ,'|',1,1)+1,instr(JY_ZDBGXMTSJG ,'|',1,2)-instr(JY_ZDBGXMTSJG ,'|',1,1)-1); F_BGXMID :=substr(F_CSZ000,1,instr(F_CSZ000 ,',',1,1)-1); F_JYJG00 :=substr(F_CSZ000,instr(F_CSZ000 ,',',1,1)+1,length(F_CSZ000)); if (:new.BGXMID=F_BGXMID) and (:new.JYJG00=F_JYJG00) then :new.SFCJJZ :='N'; :new.JGZCBZ :=''; end if; JY_ZDBGXMTSJG:=substr(JY_ZDBGXMTSJG ,instr(JY_ZDBGXMTSJG ,'|',1,2),length(JY_ZDBGXMTSJG)); end loop; end if; --2022.06.16 wsd 超警戒值更新业务表 for LIS9-20220607-002 if :new.SFCJJZ = 'Y' then update JY_YW0000 set SFWJZ0='1' where JYYWID=:new.JYYWID; end if; exception when E_MODifY then raise_application_error(-20005,'该标本非您排样，不能修改结果！*'); when others then return; end;