create or replace trigger qvsc_jianyan
after insert
on qysc_wscjl
for each row
Declare
s_yewulx varchar(200);
s_zhujian varchar(200);
s_xitongsj date;
s_shujusj varchar(200);
--s_caozuofs varchar(200);
BEGIN
If Inserting Then
(s_yewulx := :NEW.yewulx;
s_zhujian := :NEW.zhujian;
s_xitongsj := :NEW.xitongsj;
s_shujusj := :NEW.shujusj;
--s_caozuofs := 'insert';
END IF;
insert into qysc_wscjl
(yewulx, zhujian, xitongsj, shujusj)
select 'C03.02.01.00' s_yewulx,
a.shenqingdid s_zhujian,
b.CHECKTIME s_xitongsj,
b.CHECKTIME s_shujusj
from HIS6YS.yj_jianyansqd a, HIS6YS.l_patientinfo b
where a.tiaoma = b.doctadviseno
and TO_char(checktime, 'YYYYMMDD') >= '20210816'
and TO_char(checktime, 'YYYYMMDD') < TO_CHAR(SYSDATE, 'YYYYMMDD')
AND a.SHENQINGDID NOT IN (SELECT ZHUJIAN FROM HSJC_RIZHIXX z);
END qvsc_jianyan;
具体报的错误信息发出来看看,检查一下yewulx字段名称有没有写错,可以直接把:NEW.yewulx写在insert语句里面;
这些赋值语句中,=前面多了冒号:吧
s_yewulx= :NEW.yewulx;
s_zhujian= :NEW.zhujian;
s_xitongsj= :NEW.xitongsj;
s_shujusj= :NEW.shujusj;