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;