1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
|
CREATE OR REPLACE TRIGGER TRIG_BRANCARD_AFTUPD
AFTER UPDATE ON BRANCARD
FOR EACH ROW
DECLARE
CURSOR C1 IS SELECT NO_HOP,NO_BRANC,TY_BRANC,DT_SAISI,dt_print,dt_trans,id_patient,id_codlit,sl_demande,md_trans,ur_trans,de_plttech,de_passint,de_exradio,de_amphite,tr_agent1,tr_agent2,tr_sagent,rm_branc,dl_branc FROM brancard WHERE NO_BRANC=:NEW.NO_BRANC ;
NO_HOP brancard.NO_HOP%TYPE;
NO_BRANC brancard.NO_BRANC%TYPE;
TY_BRANC brancard.TY_BRANC%TYPE;
DT_SAISI brancard.DT_SAISI%TYPE;
dt_print brancard.dt_print%TYPE;
dt_trans brancard.dt_trans%TYPE;
id_patient brancard.id_patient%TYPE;
id_codlit brancard.id_codlit%TYPE;
sl_demande brancard.sl_demande%TYPE;
md_trans brancard.md_trans%TYPE;
ur_trans brancard.ur_trans%TYPE;
de_plttech brancard.de_plttech%TYPE;
de_passint brancard.de_passint%TYPE;
de_exradio brancard.de_exradio%TYPE;
de_amphite brancard.de_amphite%TYPE;
tr_agent1 brancard.tr_agent1%TYPE;
tr_agent2 brancard.tr_agent2%TYPE;
tr_sagent brancard.tr_sagent%TYPE;
rm_branc brancard.rm_branc%TYPE;
dl_branc brancard.dl_branc%TYPE;
BEGIN
-- Suppr des anciennes occurence --
DELETE FROM LOGUPD_BRANCARD WHERE NO_BRANC=:NEW.no_branc ;
open c1 ;
LOOP
FETCH c1 INTO NO_HOP,NO_BRANC,TY_BRANC,DT_SAISI,dt_print,dt_trans,id_patient,id_codlit,
sl_demande,md_trans,ur_trans,de_plttech,de_passint,de_exradio,de_amphite,
tr_agent1,tr_agent2,tr_sagent,rm_branc,dl_branc ;
EXIT WHEN c1%NOTFOUND;
-- Insertion des nouvelles lignes
INSERT INTO LOGUPD_BRANCARD
(
NO_HOP,NO_BRANC,TY_BRANC,DT_SAISI,dt_print,dt_trans,id_patient,id_codlit,
sl_demande,md_trans,ur_trans,de_plttech,de_passint,de_exradio,de_amphite,
tr_agent1,tr_agent2,tr_sagent,rm_branc,dl_branc
) VALUES (
NO_HOP,NO_BRANC,TY_BRANC,DT_SAISI,dt_print,dt_trans,id_patient,id_codlit,
sl_demande,md_trans,ur_trans,de_plttech,de_passint,de_exradio,de_amphite,
tr_agent1,tr_agent2,tr_sagent,rm_branc,dl_branc
) ;
END LOOP;
close c1 ;
END ;
/
SHOW ERRORS;
---------------------------------------------------- |