42: g_hash_jump number := ben_hash_utility.get_hash_jump;
43: --
44: -- Set object routines
45: --
46: procedure set_object(p_rec in out NOCOPY ben_pgm_f%rowtype) is
47: --
48: l_proc varchar2(80) := g_package||'set_object pgm';
49: l_index pls_integer;
50: --
408: --
409: procedure set_object(p_pgm_id in number,
410: p_business_group_id in number,
411: p_effective_date in date,
412: p_rec in out nocopy ben_pgm_f%rowtype) is
413: --
414: l_proc varchar2(80) := g_package||'set_object alt pgm';
415: --
416: cursor c1 is
414: l_proc varchar2(80) := g_package||'set_object alt pgm';
415: --
416: cursor c1 is
417: select pgm.*
418: from ben_pgm_f pgm
419: where pgm.pgm_id = p_pgm_id
420: and pgm.business_group_id = p_business_group_id
421: and p_effective_date
422: between pgm.effective_start_date
421: and p_effective_date
422: between pgm.effective_start_date
423: and pgm.effective_end_date;
424: --
425: --l_rec ben_pgm_f%rowtype;
426: --
427: begin
428: --
429: -- hr_utility.set_location('Entering '||l_proc,10);
742: --
743: -- Get object routines
744: --
745: procedure get_object(p_pgm_id in number,
746: p_rec in out NOCOPY ben_pgm_f%rowtype) is
747: --
748: l_proc varchar2(80) := g_package||'get_object pgm';
749: l_index pls_integer;
750: --l_not_hash_found boolean;
748: l_proc varchar2(80) := g_package||'get_object pgm';
749: l_index pls_integer;
750: --l_not_hash_found boolean;
751: l_env ben_env_object.g_global_env_rec_type;
752: --l_rec ben_pgm_f%rowtype;
753: --
754: begin
755: --
756: -- hr_utility.set_location('Entering '||l_proc,10);
1457: procedure clear_down_cache is
1458: --
1459: l_opt_rec ben_opt_f%rowtype;
1460: l_oiplip_rec ben_oiplip_f%rowtype;
1461: l_pgm_rec ben_pgm_f%rowtype;
1462: l_pl_rec ben_pl_f%rowtype;
1463: l_plip_rec ben_plip_f%rowtype;
1464: l_ptip_rec ben_ptip_f%rowtype;
1465: l_oipl_rec ben_oipl_f%rowtype;