[Home] [Help]
37: */
38: --------------------------------------------------------------------------------
39: --
40: g_package varchar2(30) := 'ben_comp_object.';
41: g_hash_key number := ben_hash_utility.get_hash_key;
42: g_hash_jump number := ben_hash_utility.get_hash_jump;
43: --
44: -- Set object routines
45: --
38: --------------------------------------------------------------------------------
39: --
40: g_package varchar2(30) := 'ben_comp_object.';
41: g_hash_key number := ben_hash_utility.get_hash_key;
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
58: -- 4) If hash index is used and not correct then try next hash index
59: --
60: -- Get hashed index value
61: --
62: l_index := ben_hash_utility.get_hashed_index(p_id => p_rec.pgm_id);
63: --115.10 replaced original exists checking with equality check and exception
64: if g_cache_pgm_rec(l_index).pgm_id = p_rec.pgm_id then
65: -- do nothing, cache entry already exists
66: null;
100: -- 4) If hash index is used and not correct then try next hash index
101: --
102: -- Get hashed index value
103: --
104: l_index := ben_hash_utility.get_hashed_index(p_id => p_rec.pl_id);
105: --115.10 replaced original exists checking with equality check and exception
106: if g_cache_pl_rec(l_index).pl_id = p_rec.pl_id then
107: -- do nothing, cache entry already exists
108: null;
143: -- 4) If hash index is used and not correct then try next hash index
144: --
145: -- Get hashed index value
146: --
147: l_index := ben_hash_utility.get_hashed_index(p_id => p_rec.oipl_id);
148: --115.10 replaced original exists checking with equality check and exception
149: if g_cache_oipl_rec(l_index).oipl_id = p_rec.oipl_id then
150: -- do nothing, cache entry already exists
151: null;
186: -- 4) If hash index is used and not correct then try next hash index
187: --
188: -- Get hashed index value
189: --
190: l_index := ben_hash_utility.get_hashed_index(p_id => p_rec.plip_id);
191: --115.10 replaced original exists checking with equality check and exception
192: if g_cache_plip_rec(l_index).plip_id = p_rec.plip_id then
193: -- do nothing, cache entry already exists
194: null;
231: -- 4) If hash index is used and not correct then try next hash index
232: --
233: -- Get hashed index value
234: --
235: l_index := ben_hash_utility.get_hashed_index(p_id => p_rec.ptip_id);
236: --115.10 replaced original exists checking with equality check and exception
237: if g_cache_ptip_rec(l_index).ptip_id = p_rec.ptip_id then
238: -- do nothing, cache entry already exists
239: null;
274: -- 4) If hash index is used and not correct then try next hash index
275: --
276: -- Get hashed index value
277: --
278: l_index := ben_hash_utility.get_hashed_index(p_id => p_rec.opt_id);
279: --
280: --115.10 replaced original exists checking with equality check and exception
281: if g_cache_opt_rec(l_index).opt_id = p_rec.opt_id then
282: -- do nothing, cache entry already exists
318: -- 4) If hash index is used and not correct then try next hash index
319: --
320: -- Get hashed index value
321: --
322: l_index := ben_hash_utility.get_hashed_index(p_id => p_rec.oiplip_id);
323: --115.10 replaced original exists checking with equality check and exception
324: if g_cache_oiplip_rec(l_index).oiplip_id = p_rec.oiplip_id then
325: -- do nothing, cache entry already exists
326: null;
768: -- 4) Repest 3 until correct program found, if not found raise error.
769: --
770: -- Get hashed index value
771: --
772: l_index := ben_hash_utility.get_hashed_index(p_id => p_pgm_id);
773: --
774: if g_cache_pgm_rec(l_index).pgm_id = p_pgm_id then
775: --
776: g_cache_last_pgm_rec := g_cache_pgm_rec(l_index);
836: -- 4) Repest 3 until correct program found, if not found raise error.
837: --
838: -- Get hashed index value
839: --
840: l_index := ben_hash_utility.get_hashed_index(p_id => p_pl_id);
841: --
842: if g_cache_pl_rec(l_index).pl_id = p_pl_id then
843: --
844: g_cache_last_pl_rec := g_cache_pl_rec(l_index);
906: -- 4) Repest 3 until correct program found, if not found raise error.
907: --
908: -- Get hashed index value
909: --
910: l_index := ben_hash_utility.get_hashed_index(p_id => p_oipl_id);
911: --
912: if g_cache_oipl_rec(l_index).oipl_id = p_oipl_id then
913: --
914: g_cache_last_oipl_rec := g_cache_oipl_rec(l_index);
974: -- 4) Repest 3 until correct program found, if not found raise error.
975: --
976: -- Get hashed index value
977: --
978: l_index := ben_hash_utility.get_hashed_index(p_id => p_plip_id);
979: --
980: if g_cache_plip_rec(l_index).plip_id = p_plip_id then
981: --
982: g_cache_last_plip_rec := g_cache_plip_rec(l_index);
1042: -- 4) Repest 3 until correct program found, if not found raise error.
1043: --
1044: -- Get hashed index value
1045: --
1046: l_index := ben_hash_utility.get_hashed_index(p_id => p_ptip_id);
1047: --
1048: if g_cache_ptip_rec(l_index).ptip_id = p_ptip_id then
1049: --
1050: g_cache_last_ptip_rec := g_cache_ptip_rec(l_index);
1110: -- 4) Repest 3 until correct program found, if not found raise error.
1111: --
1112: -- Get hashed index value
1113: --
1114: l_index := ben_hash_utility.get_hashed_index(p_id => p_opt_id);
1115: --
1116: if g_cache_opt_rec(l_index).opt_id = p_opt_id then
1117: --
1118: g_cache_last_opt_rec := g_cache_opt_rec(l_index);
1179: -- 4) Repest 3 until correct program found, if not found raise error.
1180: --
1181: -- Get hashed index value
1182: --
1183: l_index := ben_hash_utility.get_hashed_index(p_id => p_oiplip_id);
1184: --
1185: if g_cache_oiplip_rec(l_index).oiplip_id = p_oiplip_id then
1186: --
1187: g_cache_last_oiplip_rec := g_cache_oiplip_rec(l_index);
1356: -- 4) Repeat 3 until correct program found or empty cell found.
1357: --
1358: -- Get hashed index value
1359: --
1360: l_index := ben_hash_utility.get_hashed_index(p_id => p_pgm_id);
1361: --
1362: if g_cache_pgm_cobra_lookup(l_index).id = p_pgm_id then
1363: --
1364: l_rec := g_cache_pgm_cobra_lookup(l_index);