DELIMITER $$
CREATE DEFINER=`root`@`%` PROCEDURE `p_migrate_log_PD`(
)
BEGIN

delete from tm_ltbsm_history where ltperd = (select max(ltperd) from tm_ltbsm);

insert into tm_ltbsm_history (ltwily,ltbrnm,ltccyc,ltplcd,ltgcnc,ltcdap,ltperd,pd_year,rating,ltpers)
select ltwily,ltbrnm,ltccyc,ltplcd,ltgcnc,ltcdap,ltperd,pd_year,rating,ltpers from tm_ltbsm;

delete from tl_lpbsm_history where leperd = (select max(leperd) from tm_lpbsm);

insert into tl_lpbsm_history (lewily,lebrnm,leplcd,legcnc,leccyc,lecdap,leperd,lecdid,lepers)
select lewily,lebrnm,leplcd,legcnc,leccyc,lecdap,leperd,lecdid,lepers from tm_lpbsm;

truncate tm_lpbsm_pd_forward_looking;

Insert into tm_lpbsm_pd_forward_looking
    (region, branch, plan, segment, currency_code, application_code, periode, pd)
Select ltwily, ltbrnm, ltplcd, ltgcnc, ltccyc, ltcdap, ltperd, ltpers
		From tm_ltbsm_history ltbsm
		Where rating = 1 and pd_year = 0 and
        ltbsm.ltperd not in(select periode from tm_lpbsm_pd_forward_looking where
        tm_lpbsm_pd_forward_looking.region = ltbsm.ltwily and tm_lpbsm_pd_forward_looking.branch = ltbsm.ltbrnm and
		tm_lpbsm_pd_forward_looking.plan = ltbsm.ltplcd and tm_lpbsm_pd_forward_looking.segment = ltbsm.ltgcnc and
        tm_lpbsm_pd_forward_looking.currency_code = ltbsm.ltccyc and
        tm_lpbsm_pd_forward_looking.application_code = ltbsm.ltcdap) ;


END$$
DELIMITER ;