1: package body ben_pps_ler as
2: /* $Header: bepsptrg.pkb 120.2 2006/11/29 15:18:52 abparekh noship $*/
3: procedure ler_chk(p_old in g_pps_ler_rec
4: ,p_new in g_pps_ler_rec
5: ,p_event in varchar2
147: return;
148: --
149: end if;
150: --
151: if ben_pps_ler.ben_pps_evt_chk >= 1 and p_event = 'UPDATING' then
152: --
153: l_continue := false;
154: --
155: end if ;
621: if p_event = 'UPDATING' and
622: p_new.actual_termination_date is null and
623: p_old.actual_termination_date is not null then
624: --
625: ben_pps_ler.ben_pps_evt_chk := ben_pps_ler.ben_pps_evt_chk + 1 ;
626: --
627: end if ;
628: --
629: if ben_pps_ler.ben_pps_evt_chk >= 1 then --5095450: resetting it to 0 /* NOTE logic using ben_pps_evt_chk can be removed !! */
625: ben_pps_ler.ben_pps_evt_chk := ben_pps_ler.ben_pps_evt_chk + 1 ;
626: --
627: end if ;
628: --
629: if ben_pps_ler.ben_pps_evt_chk >= 1 then --5095450: resetting it to 0 /* NOTE logic using ben_pps_evt_chk can be removed !! */
630: --
631: ben_pps_ler.ben_pps_evt_chk := 0 ;
632: --
633: end if ;
627: end if ;
628: --
629: if ben_pps_ler.ben_pps_evt_chk >= 1 then --5095450: resetting it to 0 /* NOTE logic using ben_pps_evt_chk can be removed !! */
630: --
631: ben_pps_ler.ben_pps_evt_chk := 0 ;
632: --
633: end if ;
634: --
635: end;
632: --
633: end if ;
634: --
635: end;
636: end ben_pps_ler;