[Home] [Help]
376: decode(tab2.mndtry_flag,'Y',1,2);
377: --
378: begin
379: --
380: -- hr_utility.set_location(' Entering '||l_proc,10);
381: --
382: for row in c_lookup
383: (c_business_group_id => p_business_group_id
384: ,c_effective_date => p_effective_date
402: ben_elp_cache.g_cobcep_lookup(l_hv).fk3_id := row.oipl_id;
403: --
404: end loop;
405: --
406: -- hr_utility.set_location(' Dn Look '||l_proc,10);
407: --
408: l_torrwnum := 0;
409: l_prev_hv := -1;
410: --
415: ,c_effective_date => p_effective_date
416: )
417: loop
418: --
419: -- hr_utility.set_location(' St inst loop '||l_proc,10);
420: --
421: l_hv := mod(nvl(objinst.pgm_id,1)+nvl(objinst.ptip_id,2)+nvl(objinst.plip_id,3)
422: +nvl(objinst.pl_id,4)+nvl(objinst.oipl_id,5),ben_hash_utility.get_hash_key);
423: --
461: ben_elp_cache.g_cobcep_lookup(l_prev_hv).endtorele_num := l_torrwnum-1;
462: ben_elp_cache.g_cobcep_lookup(l_hv).starttorele_num := l_torrwnum;
463: end if;
464: --
465: -- hr_utility.set_location(' Assign inst '||l_proc,10);
466: --
467: g_cobcep_inst(l_torrwnum).pgm_id := objinst.pgm_id;
468: g_cobcep_inst(l_torrwnum).ptip_id := objinst.ptip_id;
469: g_cobcep_inst(l_torrwnum).plip_id := objinst.plip_id;
536: g_cobcep_inst(l_torrwnum).ELIG_HLTH_CVG_FLAG := objinst.ELIG_HLTH_CVG_FLAG ;
537: g_cobcep_inst(l_torrwnum).ELIG_ANTHR_PL_FLAG := objinst.ELIG_ANTHR_PL_FLAG ;
538:
539: --
540: -- hr_utility.set_location(' Dn Assign inst '||l_proc,10);
541: --
542: l_torrwnum := l_torrwnum+1;
543: l_prev_hv := l_hv;
544: --
547: ben_elp_cache.g_cobcep_lookup(l_prev_hv).endtorele_num := l_torrwnum-1;
548: --
549: end if;
550: --
551: -- hr_utility.set_location(' Leaving '||l_proc,10);
552: end write_cobcep_cache;
553: --
554: procedure cobcep_getdets
555: (p_business_group_id in number
1099: decode(tab2.mndtry_flag,'Y',1,2);
1100: --
1101: begin
1102: --
1103: hr_utility.set_location(' Entering '||l_proc,10);
1104: --
1105: -- Get the instance details
1106: --
1107: l_hv := mod(nvl(p_pgm_id,1)+nvl(p_ptip_id,2)+nvl(p_plip_id,3)
1159: g_copcep_odlookup(l_hv).fk1_id := p_plip_id;
1160: g_copcep_odlookup(l_hv).fk2_id := p_pl_id;
1161: g_copcep_odlookup(l_hv).fk3_id := p_oipl_id;
1162: --
1163: hr_utility.set_location(' Dn Look '||l_proc,10);
1164: --
1165: l_starttorele_num := nvl(g_copcep_nxelenum,1);
1166: l_torrwnum := l_starttorele_num;
1167: --
1164: --
1165: l_starttorele_num := nvl(g_copcep_nxelenum,1);
1166: l_torrwnum := l_starttorele_num;
1167: --
1168: hr_utility.set_location(' Bef inst loop '||l_proc,10);
1169: --
1170: if p_pgm_id is not null then
1171: --
1172: open c_pgminstance
1232: exit when c_oiplinstance%NOTFOUND;
1233: --
1234: end if;
1235: --
1236: hr_utility.set_location(' Assign inst '||l_proc,10);
1237: --
1238: g_copcep_odinst.extend(1);
1239: g_copcep_odinst(l_torrwnum).pgm_id := l_instance.pgm_id;
1240: g_copcep_odinst(l_torrwnum).ptip_id := l_instance.ptip_id;
1295: g_copcep_odinst(l_torrwnum).ELIG_TTL_PRTT_FLAG := l_instance.ELIG_TTL_PRTT_FLAG ;
1296: g_copcep_odinst(l_torrwnum).ELIG_COMPTNCY_FLAG := l_instance.ELIG_COMPTNCY_FLAG ;
1297: g_copcep_odinst(l_torrwnum).ELIG_HLTH_CVG_FLAG := l_instance.ELIG_HLTH_CVG_FLAG ;
1298: g_copcep_odinst(l_torrwnum).ELIG_ANTHR_PL_FLAG := l_instance.ELIG_ANTHR_PL_FLAG ;
1299: hr_utility.set_location(' Dn Assign inst '||l_proc,10);
1300: --
1301: l_torrwnum := l_torrwnum+1;
1302: --
1303: end loop;
1345: --
1346: dbms_session.free_unused_user_memory;
1347: --
1348: end;
1349: hr_utility.set_location(' Leaving '||l_proc,10);
1350: end write_cobcep_odcache;
1351: --
1352: procedure cobcep_odgetdets
1353: (p_effective_date in date
1381: --
1382: g_copcep_odcached := 1;
1383: --
1384: end if;
1385: hr_utility.set_location(' Derive hv '||l_proc,10);
1386: --
1387: -- Get the instance details
1388: --
1389: l_hv := mod(nvl(p_pgm_id,1)+nvl(p_ptip_id,2)+nvl(p_plip_id,3)
1447: ,p_hv => l_hv
1448: );
1449: --
1450: end if;
1451: hr_utility.set_location(' Got hv '||l_proc,10);
1452: --
1453: if l_hv is not null then
1454: --
1455: l_torrwnum := 1;
1453: if l_hv is not null then
1454: --
1455: l_torrwnum := 1;
1456: --
1457: hr_utility.set_location(' Get loop '||l_proc,10);
1458: for l_insttorrw_num in g_copcep_odlookup(l_hv).starttorele_num ..
1459: g_copcep_odlookup(l_hv).endtorele_num
1460: loop
1461: --
1464: l_torrwnum := l_torrwnum+1;
1465: --
1466: end loop;
1467: --
1468: hr_utility.set_location(' Dn Get loop '||l_proc,10);
1469: p_inst_set := l_inst_set;
1470: --
1471: end if;
1472: hr_utility.set_location(' Leaving '||l_proc,10);
1468: hr_utility.set_location(' Dn Get loop '||l_proc,10);
1469: p_inst_set := l_inst_set;
1470: --
1471: end if;
1472: hr_utility.set_location(' Leaving '||l_proc,10);
1473: exception
1474: --
1475: when no_data_found then
1476: --
4752: --
4753: l_not_hash_found boolean;
4754: --
4755: begin
4756: -- hr_utility.set_location('Entering : '||l_proc,10);
4757: --
4758: -- Flush the cache
4759: --
4760: if p_refresh_cache then
4774: (p_effective_date => p_effective_date,
4775: p_refresh_cache => p_refresh_cache);
4776: --
4777: end if;
4778: -- hr_utility.set_location('Done write cache : '||l_proc,20);
4779: --
4780: -- Get the instance details
4781: --
4782: l_torrwnum := 0;
4793: l_not_hash_found := false;
4794: --
4795: -- Loop until un-allocated has value is derived
4796: --
4797: -- hr_utility.set_location('Hashing '||l_proc,40);
4798: while not l_not_hash_found loop
4799: --
4800: l_index := ben_hash_utility.get_next_hash_index(p_hash_index => l_index);
4801: --
4819: end if;
4820: --
4821: end if;
4822: --
4823: -- hr_utility.set_location('Populate '||l_proc,80);
4824: for l_insttorrw_num in g_cache_elpehs_lookup(l_index).starttorele_num ..
4825: g_cache_elpehs_lookup(l_index).endtorele_num loop
4826: --
4827: p_inst_set(l_torrwnum) := g_cache_elpehs_inst(l_insttorrw_num);
4830: end loop;
4831: --
4832: p_inst_count := l_torrwnum;
4833: --
4834: -- hr_utility.set_location('Leaving : '||l_proc,100);
4835: exception
4836: --
4837: when no_data_found then
4838: --