[Home] [Help]
111: --
112: g_package varchar2(30) := 'ben_person_object.';
113: g_hash_key number := ben_hash_utility.get_hash_key;
114: g_hash_jump number := ben_hash_utility.get_hash_jump;
115: g_debug boolean := hr_utility.debug_enabled;
116: --
117: -- Set object routines
118: --
119: procedure set_object(p_rec in out NOCOPY per_all_people_f%rowtype) is
122: l_index pls_integer;
123: --
124: begin
125: --
126: -- hr_utility.set_location('Entering '||l_proc,10);
127: --
128: -- 1) get hash index
129: -- 2) If hash index is not used use hash index
130: -- 3) If hash index is used and correct then do nothing
152: end loop;
153: --
154: end if;
155: --
156: -- hr_utility.set_location('Leaving '||l_proc,10);
157: --
158: exception when NO_DATA_FOUND then
159: -- set cache entry at current index location
160: g_cache_per_rec(l_index):=p_rec;
167: l_index pls_integer;
168: --
169: begin
170: --
171: -- hr_utility.set_location('Entering '||l_proc,10);
172: --
173: -- 1) get hash index
174: -- 2) If hash index is not used use hash index
175: -- 3) If hash index is used and correct then do nothing
197: end loop;
198: --
199: end if;
200: --
201: -- hr_utility.set_location('Leaving '||l_proc,10);
202: --
203: exception when NO_DATA_FOUND then
204: -- set cache entry at current index location
205: g_cache_bnb_rec(l_index):=p_rec;
211: l_index pls_integer;
212: --
213: begin
214: --
215: -- hr_utility.set_location('Entering '||l_proc,10);
216: --
217: -- 1) get hash index
218: -- 2) If hash index is not used use hash index
219: -- 3) If hash index is used and correct then do nothing
241: end loop;
242: --
243: end if;
244: --
245: -- hr_utility.set_location('Leaving '||l_proc,10);
246: --
247: exception when NO_DATA_FOUND then
248: -- 115.23 set cache entry at current index location
249: g_cache_hsc_rec(l_index):=p_rec;
255: l_index pls_integer;
256: --
257: begin
258: --
259: -- hr_utility.set_location('Entering '||l_proc,10);
260: --
261: -- 1) get hash index
262: -- 2) If hash index is not used use hash index
263: -- 3) If hash index is used and correct then do nothing
285: end loop;
286: --
287: end if;
288: --
289: -- hr_utility.set_location('Leaving '||l_proc,10);
290: --
291: exception when NO_DATA_FOUND then
292: -- 115.23 set cache entry at current index location
293: g_cache_ass_rec(l_index):=p_rec;
298: l_proc varchar2(80) := g_package||'set_object benass';
299: l_index pls_integer;
300: begin
301: --
302: -- hr_utility.set_location('Entering '||l_proc,10);
303: --
304: -- 1) get hash index
305: -- 2) If hash index is not used use hash index
306: -- 3) If hash index is used and correct then do nothing
328: end loop;
329: --
330: end if;
331: --
332: -- hr_utility.set_location('Leaving '||l_proc,10);
333: --
334: exception when NO_DATA_FOUND then
335: -- 115.23 set cache entry at current index location
336: g_cache_benass_rec(l_index):=p_rec;
342: l_index pls_integer;
343: --
344: begin
345: --
346: -- hr_utility.set_location('Entering '||l_proc,10);
347: --
348: -- 1) get hash index
349: -- 2) If hash index is not used use hash index
350: -- 3) If hash index is used and correct then do nothing
372: end loop;
373: --
374: end if;
375: --
376: -- hr_utility.set_location('Leaving '||l_proc,10);
377: --
378: exception when NO_DATA_FOUND then
379: -- 115.23 set cache entry at current index location
380: g_cache_ast_rec(l_index):=p_rec;
386: l_index pls_integer;
387: --
388: begin
389: --
390: -- hr_utility.set_location('Entering '||l_proc,10);
391: --
392: -- 1) get hash index
393: -- 2) If hash index is not used use hash index
394: -- 3) If hash index is used and correct then do nothing
416: end loop;
417: --
418: end if;
419: --
420: -- hr_utility.set_location('Leaving '||l_proc,10);
421: --
422: exception when NO_DATA_FOUND then
423: -- 115.23 set cache entry at current index location
424: g_cache_aei_rec(l_index):=p_rec;
430: l_index pls_integer;
431: --
432: begin
433: --
434: -- hr_utility.set_location('Entering '||l_proc,10);
435: --
436: -- 1) get hash index
437: -- 2) If hash index is not used use hash index
438: -- 3) If hash index is used and correct then do nothing
460: end loop;
461: --
462: end if;
463: --
464: -- hr_utility.set_location('Leaving '||l_proc,10);
465: --
466: exception when NO_DATA_FOUND then
467: -- 115.23 set cache entry at current index location
468: g_cache_pil_rec(l_index):=p_rec;
474: l_index pls_integer;
475: --
476: begin
477: --
478: -- hr_utility.set_location('Entering '||l_proc,10);
479: --
480: l_index := nvl(g_cache_bal_rec.count,0)+1;
481: --
482: g_cache_bal_rec(l_index) := p_rec;
480: l_index := nvl(g_cache_bal_rec.count,0)+1;
481: --
482: g_cache_bal_rec(l_index) := p_rec;
483: --
484: -- hr_utility.set_location('Leaving '||l_proc,10);
485: --
486: end set_object;
487: --
488: procedure set_object(p_rec in out NOCOPY per_contact_relationships%rowtype) is
491: l_index pls_integer;
492: --
493: begin
494: --
495: -- hr_utility.set_location('Entering '||l_proc,10);
496: --
497: l_index := nvl(g_cache_con_rec.count,0)+1;
498: --
499: g_cache_con_rec(l_index) := p_rec;
497: l_index := nvl(g_cache_con_rec.count,0)+1;
498: --
499: g_cache_con_rec(l_index) := p_rec;
500: --
501: -- hr_utility.set_location('Leaving '||l_proc,10);
502: --
503: end set_object;
504: --
505: procedure set_appass_object(p_rec in out NOCOPY per_all_assignments_f%rowtype) is
508: l_index pls_integer;
509: --
510: begin
511: --
512: -- hr_utility.set_location('Entering '||l_proc,10);
513: --
514: l_index := nvl(g_cache_appass_rec.count,0)+1;
515: --
516: g_cache_appass_rec(l_index) := p_rec;
514: l_index := nvl(g_cache_appass_rec.count,0)+1;
515: --
516: g_cache_appass_rec(l_index) := p_rec;
517: --
518: -- hr_utility.set_location('Leaving '||l_proc,10);
519: --
520: end set_appass_object;
521: --
522: procedure set_allass_object(p_rec in out NOCOPY per_all_assignments_f%rowtype) is
525: l_index pls_integer;
526: --
527: begin
528: --
529: -- hr_utility.set_location('Entering '||l_proc,10);
530: --
531: l_index := nvl(g_cache_allass_rec.count,0)+1;
532: --
533: g_cache_allass_rec(l_index) := p_rec;
531: l_index := nvl(g_cache_allass_rec.count,0)+1;
532: --
533: g_cache_allass_rec(l_index) := p_rec;
534: --
535: -- hr_utility.set_location('Leaving '||l_proc,10);
536: --
537: end set_allass_object;
538: --
539: procedure set_object(p_rec in out NOCOPY g_person_typ_info_rec) is
542: l_index pls_integer;
543: --
544: begin
545: --
546: -- hr_utility.set_location('Entering '||l_proc,10);
547: --
548: l_index := nvl(g_cache_typ_rec.count,0)+1;
549: --
550: g_cache_typ_rec(l_index) := p_rec;
548: l_index := nvl(g_cache_typ_rec.count,0)+1;
549: --
550: g_cache_typ_rec(l_index) := p_rec;
551: --
552: -- hr_utility.set_location('Leaving '||l_proc,10);
553: --
554: end set_object;
555: --
556: procedure set_object(p_rec in out NOCOPY per_periods_of_service%rowtype) is
559: l_index pls_integer;
560: --
561: begin
562: --
563: -- hr_utility.set_location('Entering '||l_proc,10);
564: --
565: -- 1) get hash index
566: -- 2) If hash index is not used use hash index
567: -- 3) If hash index is used and correct then do nothing
589: end loop;
590: --
591: end if;
592: --
593: -- hr_utility.set_location('Leaving '||l_proc,10);
594: --
595: exception when NO_DATA_FOUND then
596: -- 115.23 set cache entry at current index location
597: g_cache_pps_rec(l_index):=p_rec;
603: l_index pls_integer;
604: --
605: begin
606: --
607: -- hr_utility.set_location('Entering '||l_proc,10);
608: --
609: -- 1) get hash index
610: -- 2) If hash index is not used use hash index
611: -- 3) If hash index is used and correct then do nothing
633: end loop;
634: --
635: end if;
636: --
637: -- hr_utility.set_location('Leaving '||l_proc,10);
638: --
639: exception when NO_DATA_FOUND then
640: -- 115.23 set cache entry at current index location
641: g_cache_pad_rec(l_index):=p_rec;
647: l_index pls_integer;
648: --
649: begin
650: --
651: -- hr_utility.set_location('Entering '||l_proc,10);
652: --
653: -- 1) get hash index
654: -- 2) If hash index is not used use hash index
655: -- 3) If hash index is used and correct then do nothing
677: end loop;
678: --
679: end if;
680: --
681: -- hr_utility.set_location('Leaving '||l_proc,10);
682: --
683: exception when NO_DATA_FOUND then
684: -- 115.23 set cache entry at current index location
685: g_cache_date_rec(l_index):=p_rec;
691: l_index pls_integer;
692: --
693: begin
694: --
695: -- hr_utility.set_location('Entering '||l_proc,10);
696: --
697: -- 1) get hash index
698: -- 2) If hash index is not used use hash index
699: -- 3) If hash index is used and correct then do nothing
721: end loop;
722: --
723: end if;
724: --
725: -- hr_utility.set_location('Leaving '||l_proc,10);
726: --
727: exception when NO_DATA_FOUND then
728: -- 115.23 set cache entry at current index location
729: g_cache_bal_per_rec(l_index):=p_rec;
735: l_index pls_integer;
736: --
737: begin
738: --
739: -- hr_utility.set_location('Entering '||l_proc,10);
740: --
741: -- 1) get hash index
742: -- 2) If hash index is not used use hash index
743: -- 3) If hash index is used and correct then do nothing
765: end loop;
766: --
767: end if;
768: --
769: -- hr_utility.set_location('Leaving '||l_proc,10);
770: --
771: exception when NO_DATA_FOUND then
772: -- 115.23 set cache entry at current index location
773: g_cache_con_per_rec(l_index):=p_rec;
779: l_index pls_integer;
780: --
781: begin
782: --
783: -- hr_utility.set_location('Entering '||l_proc,10);
784: --
785: -- 1) get hash index
786: -- 2) If hash index is not used use hash index
787: -- 3) If hash index is used and correct then do nothing
809: end loop;
810: --
811: end if;
812: --
813: -- hr_utility.set_location('Leaving '||l_proc,10);
814: --
815: exception when NO_DATA_FOUND then
816: -- 115.23 set cache entry at current index location
817: g_cache_app_ass_rec(l_index):=p_rec;
823: l_index pls_integer;
824: --
825: begin
826: --
827: -- hr_utility.set_location('Entering '||l_proc,10);
828: --
829: -- 1) get hash index
830: -- 2) If hash index is not used use hash index
831: -- 3) If hash index is used and correct then do nothing
853: end loop;
854: --
855: end if;
856: --
857: -- hr_utility.set_location('Leaving '||l_proc,10);
858: --
859: exception when NO_DATA_FOUND then
860: -- 115.23 set cache entry at current index location
861: g_cache_all_ass_rec(l_index):=p_rec;
867: l_index pls_integer;
868: --
869: begin
870: --
871: -- hr_utility.set_location('Entering '||l_proc,10);
872: --
873: -- 1) get hash index
874: -- 2) If hash index is not used use hash index
875: -- 3) If hash index is used and correct then do nothing
897: end loop;
898: --
899: end if;
900: --
901: -- hr_utility.set_location('Leaving '||l_proc,10);
902: --
903: exception when NO_DATA_FOUND then
904: -- 115.23 set cache entry at current index location
905: g_cache_typ_per_rec(l_index):=p_rec;
911: l_index pls_integer;
912: --
913: begin
914: --
915: -- hr_utility.set_location('Entering '||l_proc,10);
916: --
917: -- 1) get hash index
918: -- 2) If hash index is not used use hash index
919: -- 3) If hash index is used and correct then do nothing
941: end loop;
942: --
943: end if;
944: --
945: -- hr_utility.set_location('Leaving '||l_proc,10);
946: --
947: exception when NO_DATA_FOUND then
948: -- 115.23 set cache entry at current index location
949: g_cache_fte_rec(l_index):=p_rec;
991: --115.23 - comment out unneeded record
992: --
993: begin
994: --
995: -- hr_utility.set_location('Entering '||l_proc,10);
996: --
997: -- 1) Get record from database.
998: -- 2) If record not found then raise error.
999: -- 3) Pass record to set_object routine.
1018: --
1019: -- 115.23 - unnecessary, using NOCOPY record
1020: --p_rec := l_rec;
1021: --
1022: -- hr_utility.set_location('Leaving '||l_proc,10);
1023: --
1024: end set_ass_object;
1025: --
1026: procedure set_benass_object
1046: --115.23 - comment out unneeded record
1047: --
1048: begin
1049: --
1050: -- hr_utility.set_location('Entering '||l_proc,10);
1051: --
1052: -- 1) Get record from database.
1053: -- 2) If record not found then raise error.
1054: -- 3) Pass record to set_object routine.
1073: --
1074: -- 115.23 - unnecessary, using NOCOPY record
1075: --p_rec := l_rec;
1076: --
1077: -- hr_utility.set_location('Leaving '||l_proc,10);
1078: --
1079: end set_benass_object;
1080: --
1081: procedure set_bnb_object
1102: --115.23 - comment out unneeded record
1103: --
1104: begin
1105: --
1106: -- hr_utility.set_location('Entering '||l_proc,10);
1107: --
1108: -- 1) Get record from database.
1109: -- 2) If record not found then raise error.
1110: -- 3) Pass record to set_object routine.
1135: --
1136: -- 115.23 - unnecessary, using NOCOPY record
1137: --p_rec := l_rec;
1138: --
1139: -- hr_utility.set_location('Leaving '||l_proc,10);
1140: --
1141: end set_bnb_object;
1142: --
1143: procedure set_ast_object
1156: --115.23 - comment out unneeded record
1157: --
1158: begin
1159: --
1160: -- hr_utility.set_location('Entering '||l_proc,10);
1161: --
1162: -- 1) Get record from database.
1163: -- 2) If record not found then raise error.
1164: -- 3) Pass record to set_object routine.
1183: --
1184: -- 115.23 - unnecessary, using NOCOPY record
1185: --p_rec := l_rec;
1186: --
1187: -- hr_utility.set_location('Leaving '||l_proc,10);
1188: --
1189: end set_ast_object;
1190: --
1191: procedure set_ass_object
1204: --115.23 - comment out unneeded record
1205: --
1206: begin
1207: --
1208: -- hr_utility.set_location('Entering '||l_proc,10);
1209: --
1210: -- 1) Get record from database.
1211: -- 2) If record not found then raise error.
1212: -- 3) Pass record to set_object routine.
1231: --
1232: -- 115.23 - unnecessary, using NOCOPY record
1233: --p_rec := l_rec;
1234: --
1235: -- hr_utility.set_location('Leaving '||l_proc,10);
1236: --
1237: end set_ass_object;
1238: --
1239: procedure set_pil_object
1259: --115.23 - comment out unneeded record
1260: --
1261: begin
1262: --
1263: -- hr_utility.set_location('Entering '||l_proc,10);
1264: --
1265: -- 1) Get record from database.
1266: -- 2) If record not found then raise error.
1267: -- 3) Pass record to set_object routine.
1286: --
1287: -- 115.23 - unnecessary, using NOCOPY record
1288: --p_rec := l_rec;
1289: --
1290: -- hr_utility.set_location('Leaving '||l_proc,10);
1291: --
1292: end set_pil_object;
1293: --
1294: procedure set_con_object
1320: l_num_recs number := 0;
1321: --
1322: begin
1323: --
1324: -- hr_utility.set_location('Entering '||l_proc,10);
1325: --
1326: -- 1) Get record from database.
1327: -- 2) If record not found then raise error.
1328: -- 3) Pass record to set_object routine.
1363: set_con_per_object(p_rec => l_con_per_rec);
1364: --
1365: p_rec := l_rec;
1366: --
1367: -- hr_utility.set_location('Leaving '||l_proc,10);
1368: --
1369: end set_con_object;
1370: --
1371: procedure set_appass_object
1392: l_num_recs number := 0;
1393: --
1394: begin
1395: --
1396: g_debug := hr_utility.debug_enabled;
1397: if g_debug then
1398: l_proc := g_package||'set_app_ass_object';
1399: hr_utility.set_location('Entering '||l_proc,10);
1400: end if;
1395: --
1396: g_debug := hr_utility.debug_enabled;
1397: if g_debug then
1398: l_proc := g_package||'set_app_ass_object';
1399: hr_utility.set_location('Entering '||l_proc,10);
1400: end if;
1401: --
1402: -- 1) Get record from database.
1403: -- 2) If record not found then raise error.
1440: --
1441: p_rec := l_rec;
1442: --
1443: if g_debug then
1444: hr_utility.set_location('Leaving '||l_proc,10);
1445: end if;
1446: --
1447: end set_appass_object;
1448: --
1470: l_num_recs number := 0;
1471: --
1472: begin
1473: --
1474: g_debug := hr_utility.debug_enabled;
1475: if g_debug then
1476: l_proc := g_package||'set_all_ass_object';
1477: hr_utility.set_location('Entering '||l_proc,10);
1478: end if;
1473: --
1474: g_debug := hr_utility.debug_enabled;
1475: if g_debug then
1476: l_proc := g_package||'set_all_ass_object';
1477: hr_utility.set_location('Entering '||l_proc,10);
1478: end if;
1479: --
1480: -- 1) Get record from database.
1481: -- 2) If record not found then raise error.
1518: --
1519: p_rec := l_rec;
1520: --
1521: if g_debug then
1522: hr_utility.set_location('Leaving '||l_proc,10);
1523: end if;
1524: --
1525: end set_allass_object;
1526: --
1570: l_num_recs number := 0;
1571: --
1572: begin
1573: --
1574: -- hr_utility.set_location('Entering '||l_proc,10);
1575: --
1576: -- 1) Get record from database.
1577: -- 2) If record not found then raise error.
1578: -- 3) Pass record to set_object routine.
1628: set_typ_per_object(p_rec => l_typ_per_rec);
1629: --
1630: p_rec := l_rec;
1631: --
1632: -- hr_utility.set_location('Leaving '||l_proc,10);
1633: --
1634: end set_typ_object;
1635: --
1636: procedure set_bal_object
1651: l_num_recs number := 0;
1652: --
1653: begin
1654: --
1655: -- hr_utility.set_location('Entering '||l_proc,10);
1656: --
1657: -- 1) Get record from database.
1658: -- 2) If record not found then raise error.
1659: -- 3) Pass record to set_object routine.
1690: end if;
1691: --
1692: set_bal_per_object(p_rec => l_bal_per_rec);
1693: --
1694: -- hr_utility.set_location('Leaving '||l_proc,10);
1695: --
1696: end set_bal_object;
1697: --
1698: procedure set_pad_object
1717: --115.23 - comment out unneeded record
1718: --
1719: begin
1720: --
1721: -- hr_utility.set_location('Entering '||l_proc,10);
1722: --
1723: -- 1) Get record from database.
1724: -- 2) If record not found then raise error.
1725: -- 3) Pass record to set_object routine.
1744: --
1745: -- 115.23 - unnecessary, using NOCOPY record
1746: --p_rec := l_rec;
1747: --
1748: -- hr_utility.set_location('Leaving '||l_proc,10);
1749: --
1750: end set_pad_object;
1751: --
1752: procedure set_hsc_object
1764: --115.23 - comment out unneeded record
1765: --
1766: begin
1767: --
1768: -- hr_utility.set_location('Entering '||l_proc,10);
1769: --
1770: -- 1) Get record from database.
1771: -- 2) If record not found then raise error.
1772: -- 3) Pass record to set_object routine.
1791: --
1792: -- 115.23 - unnecessary, using NOCOPY record
1793: --p_rec := l_rec;
1794: --
1795: -- hr_utility.set_location('Leaving '||l_proc,10);
1796: --
1797: end set_hsc_object;
1798: --
1799: procedure set_per_object(p_person_id in number,
1816: --l_rec per_all_people_f%rowtype;
1817: --115.23 altered to use NOCOPY record
1818: begin
1819: --
1820: -- hr_utility.set_location('Entering '||l_proc,10);
1821: --
1822: -- 1) Get record from database.
1823: -- 2) If record not found then raise error.
1824: -- 3) Pass record to set_object routine.
1862: end loop;
1863: --
1864: end if;
1865: --
1866: -- hr_utility.set_location('Leaving '||l_proc,10);
1867: --
1868: --
1869: --115.23 - altered to use NOCOPY record
1870: --p_rec := l_rec;
1868: --
1869: --115.23 - altered to use NOCOPY record
1870: --p_rec := l_rec;
1871: --
1872: -- hr_utility.set_location('Leaving '||l_proc,10);
1873: --
1874: exception when NO_DATA_FOUND then
1875: -- set cache entry at current index location
1876: g_cache_per_rec(l_index):=p_rec;
1897: --115.23 - comment out unneeded record
1898: --
1899: begin
1900: --
1901: -- hr_utility.set_location('Entering '||l_proc,10);
1902: --
1903: -- 1) Get record from database.
1904: -- 2) If record not found then raise error.
1905: -- 3) Pass record to set_object routine.
1938: end loop;
1939: --
1940: end if;
1941: --
1942: -- hr_utility.set_location('Leaving '||l_proc,10);
1943: --
1944: --
1945: --115.23 - altered to use NOCOPY record
1946: --p_rec := l_rec;
1944: --
1945: --115.23 - altered to use NOCOPY record
1946: --p_rec := l_rec;
1947: --
1948: -- hr_utility.set_location('Leaving '||l_proc,10);
1949: --
1950: exception when NO_DATA_FOUND then
1951: -- set cache entry at current index location
1952: g_cache_pps_rec(l_index):=p_rec;
1978: --l_rec g_person_date_info_rec;
1979: --
1980: begin
1981: --
1982: -- hr_utility.set_location('Entering '||l_proc,10);
1983: --
1984: -- 1) Get record from database.
1985: -- 2) If record not found then raise error.
1986: -- 3) Pass record to set_object routine.
2030: end loop;
2031: --
2032: end if;
2033: --
2034: -- hr_utility.set_location('Leaving '||l_proc,10);
2035: --
2036: exception when NO_DATA_FOUND then
2037: -- 115.23 set cache entry at current index location
2038: g_cache_date_rec(l_index):=p_rec;
2089: --l_rec g_person_fte_info_rec;
2090: --
2091: begin
2092: --
2093: -- hr_utility.set_location('Entering '||l_proc,10);
2094: --
2095: -- 1) Get record from database.
2096: -- 2) If record not found then raise error.
2097: -- 3) Pass record to set_object routine.
2112: close c2;
2113: --115.23 - altered to use NOCOPY record
2114: --p_rec := l_rec;
2115: --
2116: -- hr_utility.set_location('Leaving '||l_proc,10);
2117: --
2118: l_index := mod(p_assignment_id,g_hash_key);
2119: --
2120: -- 115.23 check for cache entry at current index. if none exists the NO_DATA_FOUND expection will fire
2135: end loop;
2136: --
2137: end if;
2138: --
2139: -- hr_utility.set_location('Leaving '||l_proc,10);
2140: --
2141: exception when NO_DATA_FOUND then
2142: -- 115.23 set cache entry at current index location
2143: g_cache_fte_rec(l_index):=p_rec;
2156: l_effective_date date;
2157: --
2158: begin
2159: --
2160: -- hr_utility.set_location('Entering '||l_proc,10);
2161: --
2162: if g_cache_last_per_rec.person_id = p_person_id then
2163: --
2164: p_rec := g_cache_last_per_rec;
2196: p_rec := g_cache_last_per_rec;
2197: --
2198: end if;
2199: --
2200: -- hr_utility.set_location('Leaving '||l_proc,10);
2201: --
2202: exception
2203: --
2204: when no_data_found then
2239: --
2240: --
2241: begin
2242: --
2243: -- hr_utility.set_location('Entering '||l_proc,10);
2244: --
2245: if g_cache_last_bnb_rec.bnfts_bal_id = p_bnfts_bal_id then
2246: --
2247: p_rec := g_cache_last_bnb_rec;
2279: p_rec := g_cache_last_bnb_rec;
2280: --
2281: end if;
2282: --
2283: -- hr_utility.set_location('Leaving '||l_proc,10);
2284: --
2285: exception
2286: --
2287: when no_data_found then
2316: --l_rec hr_soft_coding_keyflex%rowtype;
2317: --
2318: begin
2319: --
2320: -- hr_utility.set_location('Entering '||l_proc,10);
2321: --
2322: if g_cache_last_hsc_rec.soft_coding_keyflex_id = p_soft_coding_keyflex_id then
2323: --
2324: p_rec := g_cache_last_hsc_rec;
2381: --
2382: --
2383: begin
2384: --
2385: -- hr_utility.set_location('Entering '||l_proc,10);
2386: --
2387: if g_cache_last_ass_rec.person_id = p_person_id then
2388: --
2389: p_rec := g_cache_last_ass_rec;
2459: l_effective_date date;
2460: --
2461: begin
2462: --
2463: -- hr_utility.set_location('Entering '||l_proc,10);
2464: --
2465: if g_cache_last_benass_rec.person_id = p_person_id then
2466: --
2467: p_rec := g_cache_last_benass_rec;
2532: l_rec per_assignment_status_types%rowtype;
2533: --
2534: begin
2535: --
2536: -- hr_utility.set_location('Entering '||l_proc,10);
2537: --
2538: if g_cache_last_ast_rec.assignment_status_type_id = p_assignment_status_type_id then
2539: --
2540: p_rec := g_cache_last_ast_rec;
2593: --l_rec per_assignment_extra_info%rowtype;
2594: --
2595: begin
2596: --
2597: -- hr_utility.set_location('Entering '||l_proc,10);
2598: --
2599: if g_cache_last_aei_rec.assignment_id = p_assignment_id then
2600: --
2601: p_rec := g_cache_last_aei_rec;
2659: --
2660: --
2661: begin
2662: --
2663: -- hr_utility.set_location('Entering '||l_proc,10);
2664: --
2665: if g_cache_last_pil_rec.person_id = p_person_id then
2666: --
2667: p_rec := g_cache_last_pil_rec;
2737: --
2738: --
2739: begin
2740: --
2741: -- hr_utility.set_location('Entering '||l_proc,10);
2742: --
2743: if g_cache_last_pad_rec.person_id = p_person_id then
2744: --
2745: p_rec := g_cache_last_pad_rec;
2813: --
2814: --
2815: begin
2816: --
2817: -- hr_utility.set_location('Entering '||l_proc,10);
2818: --
2819: if g_cache_last_pps_rec.person_id = p_person_id then
2820: --
2821: p_rec := g_cache_last_pps_rec;
2891: --
2892: --
2893: begin
2894: --
2895: -- hr_utility.set_location('Entering '||l_proc,10);
2896: --
2897: if g_cache_last_bal_rec.person_id = p_person_id and
2898: g_cache_last_bal_rec.bnfts_bal_id = p_bnfts_bal_id and
2899: nvl(ben_manage_life_events.g_fonm_rt_strt_dt,
2901: between g_cache_last_bal_rec.effective_start_date
2902: and g_cache_last_bal_rec.effective_end_date then
2903: --
2904: p_rec := g_cache_last_bal_rec;
2905: hr_utility.set_location('g_cache_last_bal_rec '||l_proc,10);
2906: return;
2907: --
2908: end if;
2909: -- 1) Get hashed index
2942: nvl(ben_manage_life_events.g_fonm_cvg_strt_dt,
2943: p_effective_date)
2944: );
2945: --
2946: hr_utility.set_location('Before get_bal_per_object '||l_proc,10);
2947: get_bal_per_object
2948: (p_person_id => p_person_id,
2949: p_bnfts_bal_id => p_bnfts_bal_id,
2950: p_effective_date => l_effective_date,
2951: p_rec => p_rec);
2952: --
2953: g_cache_last_bal_rec := p_rec;
2954: --
2955: -- hr_utility.set_location('Leaving '||l_proc,10);
2956: --
2957: exception
2958: --
2959: when no_data_found then
2995: --
2996: --
2997: begin
2998: --
2999: -- hr_utility.set_location('Entering '||l_proc,10);
3000: --
3001: BEGIN
3002: if g_cache_last_con_rec(1).person_id = p_person_id then
3003: --115.23 no need for for loop, just make the assignment
3059: end if;
3060: --
3061: --p_rec := l_rec;
3062: --
3063: -- hr_utility.set_location('Leaving '||l_proc,10);
3064: --
3065: exception
3066: --
3067: when no_data_found then
3096: --
3097: --
3098: begin
3099: --
3100: g_debug := hr_utility.debug_enabled;
3101: if g_debug then
3102: l_proc := g_package||'set_typ_object';
3103: hr_utility.set_location('Entering '||l_proc,10);
3104: end if;
3099: --
3100: g_debug := hr_utility.debug_enabled;
3101: if g_debug then
3102: l_proc := g_package||'set_typ_object';
3103: hr_utility.set_location('Entering '||l_proc,10);
3104: end if;
3105: --
3106: begin
3107: if g_cache_last_appass_rec(1).person_id = p_person_id then
3163: --115.23 no need
3164: --p_rec := l_rec;
3165: --
3166: if g_debug then
3167: hr_utility.set_location('Leaving '||l_proc,10);
3168: end if;
3169: --
3170: exception
3171: --
3201: --
3202: --
3203: begin
3204: --
3205: g_debug := hr_utility.debug_enabled;
3206: if g_debug then
3207: l_proc := g_package||'get_allass_object ass';
3208: hr_utility.set_location('Entering '||l_proc,10);
3209: end if;
3204: --
3205: g_debug := hr_utility.debug_enabled;
3206: if g_debug then
3207: l_proc := g_package||'get_allass_object ass';
3208: hr_utility.set_location('Entering '||l_proc,10);
3209: end if;
3210: --
3211: begin
3212: if g_cache_last_allass_rec(1).person_id = p_person_id then
3268: --115.23 no need
3269: --p_rec := l_rec;
3270: --
3271: if g_debug then
3272: hr_utility.set_location('Leaving '||l_proc,10);
3273: end if;
3274: --
3275: exception
3276: --
3306: --
3307: --
3308: begin
3309: --
3310: -- hr_utility.set_location('Entering '||l_proc,10);
3311: --
3312: begin
3313: --
3314: if g_cache_last_typ_rec(1).person_id = p_person_id then
3370: end if;
3371: --115.23 unnecessary
3372: --p_rec := l_rec;
3373: --
3374: -- hr_utility.set_location('Leaving '||l_proc,10);
3375: --
3376: exception
3377: --
3378: when no_data_found then
3410: l_end_index pls_integer;
3411: --
3412: begin
3413: --
3414: -- hr_utility.set_location('Entering '||l_proc,10);
3415: --
3416: -- 1) Get hashed index
3417: -- 2) If hashed index is correct person_id then return pps
3418: -- 3) If hashed index is not correct person_id then check next index
3468: end loop;
3469: --
3470: end if;
3471: --
3472: -- hr_utility.set_location('Leaving '||l_proc,10);
3473: --
3474: exception
3475: --
3476: when no_data_found then
3497: --
3498: --
3499: begin
3500: --
3501: -- hr_utility.set_location('Entering '||l_proc,10);
3502: --
3503: if g_cache_last_date_rec.person_id = p_person_id then
3504: --
3505: p_rec := g_cache_last_date_rec;
3574: --
3575: --
3576: begin
3577: --
3578: -- hr_utility.set_location('Entering '||l_proc,10);
3579: --
3580: if g_cache_last_fte_rec.assignment_id = p_assignment_id then
3581: --
3582: p_rec := g_cache_last_fte_rec;