1: package body ben_ecd_ler as
2: /* $Header: beecdtrg.pkb 120.2.12010000.4 2009/11/10 17:54:06 pvelvano ship $*/
3: procedure ler_chk(p_old IN g_ecd_ler_rec
4: ,p_new IN g_ecd_ler_rec
5: ,p_effective_date in date default NULL ) is
3: procedure ler_chk(p_old IN g_ecd_ler_rec
4: ,p_new IN g_ecd_ler_rec
5: ,p_effective_date in date default NULL ) is
6:
7: l_procedure varchar2(60) := 'ben_ecd_ler.ler_chk';
8: --
9: l_session_date DATE;
10: l_person_id NUMBER;
11: l_system_date DATE;
602: close get_ler;
603: hr_utility.set_location('Leaving:'||l_procedure, 99);
604:
605: end;
606: end ben_ecd_ler;