CREATE OR REPLACE TRIGGER b2b_person_tri
AFTER INSERT OR UPDATE ON SYS_PERSON
FOR EACH ROW
DECLARE
v_entryid NUMBER(10);
v_personinfoid number(10);
PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
CASE
WHEN INSERTING THEN
select count(*) into v_entryid from sys_person p,b2b_entryconf t
where p.entryid = t.entryid
and p.personid = :new.personid;
if v_entryid > 0 then
select sys_nextid_fun('EDIS_UNTINTF_SEQ') into v_personinfoid from dual;
insert into edis_untintf(
edis_untintf_seq,
edis_untintf_sourceid,
edis_untintf_comefrom,
edis_untintf_intfname,
edis_untintf_credate,
edis_untintf_modol
)
values(
v_personinfoid,
:new.personid,
'SYS_PERSON',
'B2B',
sysdate,
'insert'
);
end if;
WHEN updating THEN
select count(*) into v_entryid from sys_person p, b2b_entryconf t
where p.entryid = t.entryid
and p.personid = :old.personid;
if v_entryid > 0 then
select sys_nextid_fun('EDIS_UNTINTF_SEQ') into v_personinfoid from dual;
insert into edis_untintf(
edis_untintf_seq,
edis_untintf_sourceid,
edis_untintf_comefrom,
edis_untintf_intfname,
edis_untintf_credate,
edis_untintf_modol
)
values(
v_personinfoid,
:old.personid,
'SYS_PERSON',
'B2B',
sysdate,
'update'
);
commit;
end if;
END CASE;
END;