[Home] [Help]
53:
54:
55:
56: BEGIN
57: hr_utility.set_location('Entering: '||l_proc,10);
58: open c_table_route('PTP');
59: fetch c_table_route into l_table_route_id ;
60: close c_table_route ;
61:
132: end loop;
133: --CLOSE C_PTP;
134: -- mark the future data Exists column
135: mark_future_data_exists(p_copy_entity_txn_id);
136: hr_utility.set_location('Leaving: '||l_proc,20);
137: END;
138:
139: FUNCTION Get_New_Enrt_Cd
140: (
244: l_position Number;
245: l_business_group_id Number;
246:
247: begin
248: hr_utility.set_location('Entering: '||l_proc,10);
249: select
250: context_business_group_id into l_business_group_id
251: from
252: pqh_copy_entity_txns
393: information170 = l_name
394: where current of c_crit;
395: end if;
396: end loop;
397: hr_utility.set_location('Leaving: '||l_proc,20);
398: end populate_extra_mapping_ELP;
399:
400: procedure populate_extra_mappings_ELP(
401: p_copy_entity_txn_id in Number,
416: table_alias = 'ELP'
417: and copy_entity_txn_id = p_copy_entity_txn_id
418: and p_effective_date between information2 and information3 ;
419: begin
420: hr_utility.set_location('Entering: '||l_proc,10);
421: for l_elp in c_elp(p_copy_entity_txn_id,p_effective_date)
422: loop
423: -- populate the extra mappings required for Criteria
424: populate_extra_mapping_elp(
425: p_copy_entity_txn_id => p_copy_entity_txn_id
426: ,p_effective_date => p_effective_date
427: ,p_elig_prfl_id => l_elp.elig_prfl_id);
428: end loop;
429: hr_utility.set_location('Leaving: '||l_proc,20);
430: end populate_extra_mappings_ELP;
431:
432:
433: PROCEDURE populate_extra_Mapping_PLN
441:
442: l_opt_Typ_Cd Varchar2(15);
443: l_proc varchar2(72) := g_package||'.populate_extra_Mapping_PLN';
444: BEGIN
445: hr_utility.set_location('Entering: '||l_proc,10);
446: -- Update Information11 with extra mapping
447: Select
448: ptp.Information18 into l_opt_Typ_Cd
449: From
466: Set
467: Information11 = l_opt_Typ_Cd
468: Where
469: copy_entity_result_id = p_copy_entity_result_id;
470: hr_utility.set_location('Leaving: '||l_proc,20);
471:
472: Exception When No_Data_Found Then
473: Null;
474: END populate_extra_Mapping_PLN;
503: for update ;
504: --
505:
506: Begin
507: hr_utility.set_location('Entering: '||l_proc,10);
508: -- UPD CHANGE
509: -- For Pdw Update we need to update the CPY rows with the YRP start -end date
510: -- and year period type so that it gets shown in the UI
511:
536: --
537: End ;
538: End Loop ;
539: -- END UPD CHANGE
540: hr_utility.set_location('Leaving: '||l_proc,20);
541: End populate_extra_mappings_CPY;
542:
543: procedure populate_extra_Mappings_EPA(
544: p_copy_entity_txn_id Number,
574: l_compobj_id Number;
575: l_compobj_type varchar2(30);
576:
577: BEGIN
578: hr_utility.set_location('Entering: '||l_proc,10);
579: FOR l_epa in c_epa( p_copy_entity_txn_id, p_effective_date )
580: LOOP
581: IF (l_epa.PGM is not null) then
582: l_compobj_id := l_epa.PGM;
623: END LOOP;
624: -- mark the future data Exists column
625: mark_future_data_exists(p_copy_entity_txn_id);
626:
627: hr_utility.set_location('Leaving: '||l_proc,20);
628: END populate_extra_Mappings_EPA;
629:
630: procedure populate_extra_mappings_VPF(
631: p_copy_entity_txn_id Number,
653: l_elig_prfl_id Number;
654: l_elig_prfl_name ben_copy_entity_results.information170%type;
655:
656: begin
657: hr_utility.set_location('Entering: '||l_proc,10);
658: -- dbms_output.put_line('Before Cursor');
659: FOR l_vpf in c_vpf
660: LOOP
661: -- dbms_output.put_line('Modifying '||l_vpf.vrbl_rt_prfl_id);
686: Exception When No_Data_Found Then
687: Null;
688: end;
689: END LOOP;
690: hr_utility.set_location('Leaving: '||l_proc,20);
691: end populate_extra_mappings_VPF;
692:
693:
694: PROCEDURE populate_extra_Mapping_LEN
698: )
699: Is
700: l_proc varchar2(72) := g_package||'.populate_extra_Mapping_LEN';
701: Begin
702: hr_utility.set_location('Entering: '||l_proc,10);
703: Update
704: Ben_copy_entity_results len1
705: Set
706: Information170 = (
719: and len.information257 = ler.information1
720: )
721: Where
722: len1.copy_entity_result_id = p_copy_entity_result_id ;
723: hr_utility.set_location('Leaving: '||l_proc,20);
724: End populate_extra_Mapping_LEN;
725:
726: PROCEDURE populate_extra_Mappings_LEN
727: (
748: and len.information232 = pet.information1
749: and pet.information260= p_pgm_id;
750:
751: Begin
752: hr_utility.set_location('Entering: '||l_proc,10);
753: For l_LEN in c_LEN Loop
754:
755: populate_extra_mapping_LEN(l_LEN.copy_entity_result_id,p_effective_date);
756: End Loop ;
753: For l_LEN in c_LEN Loop
754:
755: populate_extra_mapping_LEN(l_LEN.copy_entity_result_id,p_effective_date);
756: End Loop ;
757: hr_utility.set_location('Leaving: '||l_proc,20);
758: End populate_extra_Mappings_LEN;
759:
760: FUNCTION Get_Dflt_New_Enrt_Cd
761: (
870: l_old_dflt_enrt_cd varchar2(15);
871: l_default_object_id Number;
872: --
873: Begin
874: hr_utility.set_location('Entering: '||l_proc,10);
875: --
876: --dbms_output.put_line(' pgm id '|| p_pgm_id|| ' txn id '|| to_char(p_copy_entity_txn_id));
877: For l_LPR in c_LPR Loop
878: --
960: information101 = l_new_enrt_cd,
961: information102 = l_cur_enrt_cd
962: where current of c_lpr1;
963: end loop;
964: hr_utility.set_location('Leaving: '||l_proc,20);
965: End populate_extra_Mappings_LPR;
966:
967: PROCEDURE populate_extra_Mappings_LOP
968: (
998:
999: oiplCopyEntityResultId Number ;
1000: --
1001: Begin
1002: hr_utility.set_location('Entering: '||l_proc,10);
1003: --
1004: For l_LOP in c_LOP Loop
1005: --
1006: l_new_dflt_enrt_cd := get_Dflt_New_Enrt_cd(l_LOP.information16);
1033:
1034: --
1035: End Loop ;
1036: --
1037: hr_utility.set_location('Leaving: '||l_proc,20);
1038: End populate_extra_Mappings_LOP;
1039:
1040: PROCEDURE populate_extra_Mappings_COP
1041: (
1066: l_new_dflt_enrt_cd varchar2(15);
1067: l_old_dflt_enrt_cd varchar2(15);
1068: --
1069: Begin
1070: hr_utility.set_location('Entering: '||l_proc,10);
1071: --
1072: For l_COP in c_COP Loop
1073: --
1074: l_new_dflt_enrt_cd := get_Dflt_New_Enrt_cd(l_COP.information26);
1086:
1087: --
1088: End Loop ;
1089: --
1090: hr_utility.set_location('Leaving: '||l_proc,20);
1091: End populate_extra_Mappings_COP;
1092:
1093:
1094: PROCEDURE copy_pln_record_pcp(p_effective_date DATE,
1110: FROM ben_copy_entity_results pln
1111: WHERE pln.copy_entity_txn_id = p_copy_entity_txn_id
1112: AND pln.table_alias = TABLE_ALIAS_PLN );
1113: BEGIN
1114: hr_utility.set_location('Entering: '||l_proc,10);
1115: FOR new_ctp IN cur_new_ctp
1116: LOOP
1117: hr_utility.set_location('copy plan: '||new_ctp.pl_id,20);
1118: /*
1113: BEGIN
1114: hr_utility.set_location('Entering: '||l_proc,10);
1115: FOR new_ctp IN cur_new_ctp
1116: LOOP
1117: hr_utility.set_location('copy plan: '||new_ctp.pl_id,20);
1118: /*
1119: BEN_PLAN_DESIGN_PLAN_MODULE.CREATE_PLAN_RESULT
1120: (p_copy_entity_result_id => l_copy_entity_result_id
1121: ,p_copy_entity_txn_id => p_copy_entity_txn_id
1136: p_pl_Id => new_ctp.pl_id
1137: ) ;
1138: END LOOP;
1139:
1140: hr_utility.set_location('delete duplicate rows ',30);
1141: /*kmullapu:
1142: We are using Plan Copy to fetch all child records of existing plan to staging.Now if we Attach Plan A
1143: and Plan B to a txn and if Child X is attached to both , it will get copied twice, leading to problems in
1144: other pages.Hence this delete.
1165: */
1166:
1167: -- mark the future data Exists column
1168: mark_future_data_exists(p_copy_entity_txn_id);
1169: hr_utility.set_location('Leaving: '||l_proc,40);
1170: END copy_pln_record_pcp;
1171:
1172:
1173: PROCEDURE copy_pln_record_pcp(p_effective_date DATE,
1181: l_opt_typ_cd Varchar2(15) ;
1182: l_proc varchar2(72) := g_package||'.copy_pln_record_pcp';
1183:
1184: BEGIN
1185: hr_utility.set_location('Entering: '||l_proc,10);
1186:
1187: hr_utility.set_location('copy plan: '||p_pl_id,20);
1188:
1189: BEN_PLAN_DESIGN_PLAN_MODULE.CREATE_PLAN_RESULT
1183:
1184: BEGIN
1185: hr_utility.set_location('Entering: '||l_proc,10);
1186:
1187: hr_utility.set_location('copy plan: '||p_pl_id,20);
1188:
1189: BEN_PLAN_DESIGN_PLAN_MODULE.CREATE_PLAN_RESULT
1190: (p_copy_entity_result_id => l_copy_entity_result_id
1191: ,p_copy_entity_txn_id => p_copy_entity_txn_id
1254:
1255: -- mark the future data Exists column
1256: mark_future_data_exists(p_copy_entity_txn_id);
1257:
1258: hr_utility.set_location('Leaving: '||l_proc,40);
1259: END copy_pln_record_pcp;
1260:
1261: PROCEDURE remove_dpnt_rows
1262: (p_copy_entity_txn_id NUMBER,
1264: p_table_alias VARCHAR2) IS
1265: l_proc varchar2(72) := g_package||'.remove_dpnt_rows';
1266:
1267: BEGIN
1268: hr_utility.set_location('Entering: '||l_proc,10);
1269:
1270: IF (p_table_alias = TABLE_ALIAS_CPP) THEN
1271:
1272: hr_utility.set_location('Deleting CPP rows: '||p_id,20);
1268: hr_utility.set_location('Entering: '||l_proc,10);
1269:
1270: IF (p_table_alias = TABLE_ALIAS_CPP) THEN
1271:
1272: hr_utility.set_location('Deleting CPP rows: '||p_id,20);
1273:
1274: DELETE
1275: FROM ben_copy_entity_results
1276: WHERE copy_entity_txn_id = p_copy_entity_txn_id
1277: AND information256 = p_id
1278: AND table_alias in (TABLE_ALIAS_LPR);
1279: END IF;
1280:
1281: hr_utility.set_location('Leaving: '||l_proc,20);
1282:
1283: END remove_dpnt_rows;
1284:
1285: /*
1551: -- Summary of changes
1552: -- Added Table_alias and Removed typ_cd filter on LE Trigger
1553: -- Setting two who_columns
1554: Begin
1555: hr_utility.set_location('Entering: '||l_proc,10);
1556: ben_plan_design_plan_module.create_ler_result(
1557: p_validate => p_validate
1558: ,p_copy_entity_result_id => p_copy_entity_result_id
1559: ,p_copy_entity_txn_id => p_copy_entity_txn_id
1570:
1571: -- mark the future data Exists column
1572: mark_future_data_exists(p_copy_entity_txn_id);
1573:
1574: hr_utility.set_location('Leaving: '||l_proc,20);
1575: End create_ler_result ;
1576:
1577: /* This procedure is used to copy Delpro from ben to staging and is called when Delpro is directly viewed from the shuttle */
1578:
1586: is
1587: l_ovn_number Number;
1588: l_proc varchar2(72) := g_package||'.create_dep_elpro_result';
1589: begin
1590: hr_utility.set_location('Entering: '||l_proc,10);
1591: --
1592: --Call plan copy api to copy Profile and its criteria
1593: --
1594: ben_plan_design_elpro_module.create_dep_elig_prfl_results
1605: );
1606:
1607: -- mark the future data Exists column
1608: mark_future_data_exists(p_copy_entity_txn_id);
1609: hr_utility.set_location('Leaving: '||l_proc,20);
1610: End create_dep_elpro_result;
1611:
1612: /* This procedure is used to copy Elpro from ben to staging and is called when elpro is directly viewed from the shuttle */
1613:
1621: is
1622: l_ovn_number Number;
1623: l_proc varchar2(72) := g_package||'.create_elpro_result';
1624: begin
1625: hr_utility.set_location('Entering: '||l_proc,10);
1626: --
1627: --Call plan copy api to copy Profile and its criteria
1628: --
1629: ben_plan_design_elpro_module.create_elig_prfl_results
1646: ,p_elig_prfl_id => p_elig_prfl_id);
1647:
1648: -- mark the future data Exists column
1649: mark_future_data_exists(p_copy_entity_txn_id);
1650: hr_utility.set_location('Leaving: '||l_proc,20);
1651: End create_elpro_result;
1652:
1653: /*-------------------------------------------------------------------------------------------------------
1654: +++++++++++++++++++++++++++++++ Prtn Elpro Procedures +++++++++++++++++++++++++++++++++++++++
1719: l_ovn_number NUMBER;
1720:
1721: --
1722: BEGIN
1723: hr_utility.set_location('Entering: '||l_proc,10);
1724: --
1725: get_txn_details (
1726: p_copy_entity_txn_id
1727: ,l_business_group_id
1762: END LOOP;
1763:
1764: -- mark the future data Exists column
1765: mark_future_data_exists(p_copy_entity_txn_id);
1766: hr_utility.set_location('Leaving: '||l_proc,20);
1767: END create_elig_prfl_results;
1768: ---
1769: ---Dumping all Eligibility Profiles in to Staging
1770: ---
1790: and table_alias='ELP'
1791: );
1792:
1793: BEGIN
1794: hr_utility.set_location('Entering: '||l_proc,10);
1795: --
1796: get_txn_details (
1797: p_copy_entity_txn_id
1798: ,l_business_group_id
1817: ,p_effective_date => l_effective_date
1818: ,p_no_dup_rslt => 'PDW_NO_DUP_RSLT'
1819: );
1820: END LOOP;
1821: hr_utility.set_location('Leaving: '||l_proc,20);
1822: END dump_elig_prfls;
1823:
1824: ---
1825:
1861: l_elp_name varchar2(240);
1862: l_rate_row csr_rate_row%rowtype;
1863: --
1864: BEGIN
1865: hr_utility.set_location('Entering: '||l_proc,10);
1866: --
1867: get_txn_details (
1868: p_copy_entity_txn_id
1869: ,l_business_group_id
1995: END IF;
1996:
1997: -- mark the future data Exists column
1998: mark_future_data_exists(p_copy_entity_txn_id);
1999: hr_utility.set_location('Leaving: '||l_proc,20);
2000: END create_vapro_results;
2001:
2002:
2003: /* This procedure copies extra columns into VPF */
2036: l_elpro_name ben_copy_entity_results.information170%type;
2037: copy_extra_mappings varchar2(1);
2038:
2039: begin
2040: hr_utility.set_location('Entering: '||l_proc,10);
2041: copy_extra_mappings := 'N';
2042:
2043: ben_pd_rate_and_cvg_module.create_vapro_results
2044: (
2096: end LOOP;
2097:
2098: -- mark the future data Exists column
2099: mark_future_data_exists(p_copy_entity_txn_id);
2100: hr_utility.set_location('Leaving: '||l_proc,20);
2101: end copy_vrbl_rt_prfl;
2102:
2103:
2104:
2167: l_ovn_number NUMBER;
2168:
2169: --
2170: BEGIN
2171: hr_utility.set_location('Entering: '||l_proc,10);
2172: --
2173: get_txn_details (
2174: p_copy_entity_txn_id
2175: ,l_business_group_id
2209: CLOSE csr_chk_dce_exist;
2210: END LOOP;
2211: -- mark the future data Exists column
2212: mark_future_data_exists(p_copy_entity_txn_id);
2213: hr_utility.set_location('Leaving: '||l_proc,20);
2214: end create_dep_elpro_results;
2215:
2216: procedure create_dep_elig_crtr_results
2217: (
2229: l_effective_date DATE;
2230: l_business_group_id NUMBER;
2231:
2232: BEGIN
2233: hr_utility.set_location('Entering: '||l_proc,10);
2234: get_txn_details (
2235: p_copy_entity_txn_id
2236: ,l_business_group_id
2237: ,l_effective_date
2265: END LOOP;
2266:
2267: -- mark the future data Exists column
2268: mark_future_data_exists(p_copy_entity_txn_id);
2269: hr_utility.set_location('Leaving: '||l_proc,20);
2270: END create_dep_elig_crtr_results;
2271: -------------------------------------------------------------------------------------------
2272: FUNCTION staged_record_exists(
2273: p_table_alias IN VARCHAR2
2328: l_information1 NUMBER;
2329: l_id_flex_num hr_organization_information.ORG_INFORMATION5%TYPE;
2330:
2331: BEGIN
2332: hr_utility.set_location('Entering: '||l_proc,10);
2333: get_txn_details (
2334: p_copy_entity_txn_id
2335: ,l_business_group_id
2336: ,l_effective_date
2422: END LOOP;
2423: -- mark the future data Exists column
2424: mark_future_data_exists(p_copy_entity_txn_id);
2425:
2426: hr_utility.set_location('Leaving: '||l_proc,20);
2427: END create_elig_crtr_results;
2428:
2429: PROCEDURE copy_bnft_bal(
2430: p_copy_entity_txn_id IN NUMBER,
2434: l_effective_date DATE;
2435: l_business_group_id NUMBER;
2436: l_proc varchar2(72) := g_package||'.copy_bnft_bal';
2437: BEGIN
2438: hr_utility.set_location('Entering: '||l_proc,10);
2439: IF NOT staged_record_exists('BNB',p_information1,p_copy_entity_txn_id) THEN
2440: get_txn_details (p_copy_entity_txn_id ,l_business_group_id,l_effective_date);
2441: ben_pd_rate_and_cvg_module.create_bnft_bal_results
2442: (
2450: ) ;
2451: END IF;
2452: -- mark the future data Exists column
2453: mark_future_data_exists(p_copy_entity_txn_id);
2454: hr_utility.set_location('Leaving: '||l_proc,20);
2455: END copy_bnft_bal;
2456:
2457: /* This function returns the relevant Criteria Name of the COBRA criteria
2458: The criteria Name could be Program or Program - PlanType Name
2599: l_pgm_Yr_Perd_Sequence_Number Number(15) :=10 ;
2600: --
2601: Begin
2602: --
2603: hr_utility.set_location('Entering: '||l_proc,10);
2604: fnd_msg_pub.initialize ;
2605: l_RESULT_TYPE_CD :='DISPLAY' ;
2606:
2607: /*
2743:
2744: -- mark the future data Exists column
2745: mark_future_data_exists(p_copy_entity_txn_id);
2746:
2747: hr_utility.set_location('Leaving: '||l_proc,20);
2748:
2749: --
2750: End create_Plan_Yr_Periods ;
2751:
2951: --
2952:
2953:
2954: Begin
2955: hr_utility.set_location('Entering: '||l_proc,10);
2956: l_result_type_cd := 'DISPLAY';
2957: -- check if triggers are existing
2958:
2959: For l_CPE in c_CPE Loop
3108:
3109: -- mark the future data Exists column
3110: mark_future_data_exists(p_copy_entity_txn_id);
3111:
3112: hr_utility.set_location('Leaving: '||l_proc,20);
3113: End create_Life_Event_Triggers ;
3114:
3115:
3116:
3528: l_effective_date DATE;
3529: l_proc varchar2(72) := g_package||'.copy_PostalZip_Bnft_Grp';
3530:
3531: begin
3532: hr_utility.set_location('Entering: '||l_proc,10);
3533: get_txn_details(
3534: p_copy_entity_txn_id,
3535: l_business_group_id,
3536: l_effective_date
3565: ) ;
3566: END if;
3567: END Loop;
3568: commit;
3569: hr_utility.set_location('Leaving: '||l_proc,20);
3570: end copy_PostalZip_Bnft_Grp;
3571:
3572: Procedure Create_YRP_Result
3573: (
3622: -- END OF BEN_YR_PERD ----------------------
3623: ---------------------------------------------------------------
3624:
3625: Begin
3626: hr_utility.set_location('Entering: '||l_proc,10);
3627:
3628: for l_yrp_rec in c_yrp('YRP') loop
3629: --
3630: --
3686: -- copy_PostalZip_Bnft_Grp(p_copy_entity_txn_id);
3687: --
3688: -- mark the future data Exists column
3689: mark_future_data_exists(p_copy_entity_txn_id);
3690: hr_utility.set_location('Leaving: '||l_proc,20);
3691: End Create_YRP_Result;
3692:
3693: --
3694: -- This Function implements the Pre-Processor for Plan Design Wizard. It will do the following
3738: and information268 is null
3739: for update of information268;
3740:
3741: Begin
3742: hr_utility.set_location('Entering: '||l_proc,10);
3743: --
3744: l_temp:=Null ;
3745: fnd_msg_pub.initialize ;
3746:
3803: -- else
3804: -- rollback ;
3805: -- End If ;
3806: --
3807: hr_utility.set_location('Leaving: '||l_proc,20);
3808: Exception When Others Then
3809: p_Exception := sqlerrm ;
3810: rollback;
3811: raise ;
3988: l_business_group_id NUMBER;
3989: l_ovn_number NUMBER;
3990: l_effective_date DATE;
3991: BEGIN
3992: hr_utility.set_location('Entering: '||l_proc,10);
3993: OPEN csr_rec_exists;
3994: FETCH csr_rec_exists into l_dummy;
3995: IF csr_rec_exists%NOTFOUND THEN
3996: --
4091: END IF;
4092: CLOSE csr_rec_exists;
4093: -- mark the future data Exists column
4094: mark_future_data_exists(p_copy_entity_txn_id);
4095: hr_utility.set_location('Leaving: '||l_proc,20);
4096: END copy_drvd_factor;
4097: -- This should return the max sequence based on past present and future rows
4098: procedure max_sequence(
4099: p_copy_entity_txn_id IN Number,
4124: and copy_entity_txn_id = c_copy_entity_txn_id
4125: and information261 = c_plan_id;
4126: -- and c_effective_date between information2 and information3;
4127: begin
4128: hr_utility.set_location('Entering: '||l_proc,10);
4129: if p_table_alias = 'CPP' then
4130: open max_cpp_sequence(p_copy_entity_txn_id,p_effective_date);
4131: fetch max_cpp_sequence into p_max_sequence;
4132: close max_cpp_sequence;
4138: open max_cop_sequence(p_copy_entity_txn_id,p_effective_date,p_plan_id);
4139: fetch max_cop_sequence into p_max_sequence;
4140: close max_cop_sequence;
4141: end if;
4142: hr_utility.set_location('Entering: '||l_proc,10);
4143: end;
4144:
4145: FUNCTION fetch_drvd_factor_result
4146: (
4192: and ENP.table_alias='ENP'
4193: and ENP.information240 = yrp.information1 ;
4194: --
4195: Begin
4196: hr_utility.set_location('Entering: '||l_proc,10);
4197: --
4198: For l_ENP in c_ENP Loop
4199: --
4200: -- The below code is to populate information5 of ENP in a format required
4231: --
4232: End Loop ;
4233:
4234: --
4235: hr_utility.set_location('Leaving: '||l_proc,20);
4236: End populate_extra_Mapping_ENP;
4237:
4238: PROCEDURE populate_extra_Mappings_ENP
4239: (
4259: and ENP.information232 = pet.information1
4260: and pet.information260= p_pgm_id;
4261:
4262: Begin
4263: hr_utility.set_location('Entering: '||l_proc,10);
4264: For l_ENP in c_ENP Loop
4265:
4266: populate_extra_mapping_ENP(l_ENP.copy_entity_result_id,p_effective_date);
4267:
4265:
4266: populate_extra_mapping_ENP(l_ENP.copy_entity_result_id,p_effective_date);
4267:
4268: End Loop ;
4269: hr_utility.set_location('Leaving: '||l_proc,20);
4270: End populate_extra_Mappings_ENP;
4271:
4272:
4273: PROCEDURE populate_extra_Mappings_CTP
4321: l_cur_enrt_cd ben_copy_entity_results.information102%type;
4322: l_default_object_id Number;
4323: --
4324: Begin
4325: hr_utility.set_location('Entering: '||l_proc,10);
4326: --
4327: For l_CTP in c_CTP Loop
4328: --
4329: l_new_dflt_enrt_cd := get_Dflt_New_Enrt_cd(l_CTP.information45);
4410: information101 = l_new_enrt_cd,
4411: information102 = l_cur_enrt_cd
4412: where current of C_Enrt_Ctp;
4413: End Loop;
4414: hr_utility.set_location('Leaving: '||l_proc,20);
4415: End populate_extra_Mappings_CTP;
4416:
4417: PROCEDURE populate_extra_Mappings_LCT
4418: (
4472: l_old_dflt_enrt_cd varchar2(15);
4473: l_default_object_id Number;
4474: --
4475: Begin
4476: hr_utility.set_location('Entering: '||l_proc,10);
4477: --
4478:
4479: For l_LCT in c_LCT Loop
4480: --
4627: information101 = l_new_enrt_cd,
4628: information102 = l_cur_enrt_cd
4629: where current of c_enrt_lct;
4630: end loop;
4631: hr_utility.set_location('Leaving: '||l_proc,20);
4632: End populate_extra_Mappings_LCT;
4633:
4634: PROCEDURE populate_extra_Mappings_CPP
4635: (
4682: l_old_dflt_enrt_cd varchar2(15);
4683: l_default_object_id Number;
4684: --
4685: Begin
4686: hr_utility.set_location('Entering: '||l_proc,10);
4687: --
4688: For l_CPP in c_CPP Loop
4689: --
4690: l_new_dflt_enrt_cd := get_Dflt_New_Enrt_cd(l_CPP.information21);
4743: where current of C_Enrt_Cpp;
4744: End Loop;
4745:
4746:
4747: hr_utility.set_location('Leaving: '||l_proc,20);
4748: End populate_extra_Mappings_CPP;
4749:
4750: PROCEDURE populate_extra_Mapping_PGM
4751: (
4767: l_new_enrt_cd varchar2(15);
4768: l_cur_enrt_cd varchar2(15);
4769: --
4770: Begin
4771: hr_utility.set_location('Entering: '||l_proc,10);
4772: --
4773: For l_PGM in c_PGM Loop
4774: --
4775: l_new_enrt_cd := BEN_PDW_COPY_BEN_TO_STG.get_new_enrt_cd(l_PGM.information51) ;
4783: Where current of c_PGM ;
4784: --
4785: End Loop ;
4786: --
4787: hr_utility.set_location('Leaving: '||l_proc,20);
4788: End populate_extra_Mapping_PGM;
4789:
4790:
4791: PROCEDURE create_program_result
4841: l_object_version_number Number ;
4842: --
4843:
4844: BEGIN
4845: hr_utility.set_location('Entering: '||l_proc,10);
4846: --
4847: --dbms_output.put_line('CALLING PGM COPY1');
4848: -- Call PCP API
4849: ben_plan_design_program_module.create_program_result (
4981:
4982: -- mark the future data Exists column
4983: mark_future_data_exists(p_copy_entity_txn_id);
4984:
4985: hr_utility.set_location('Leaving: '||l_proc,20);
4986: --
4987: Exception When Others then
4988: raise ;
4989: --
5057: ,p_object_version_number OUT nocopy Number
5058: ,p_effective_date IN Date)Is
5059: l_proc varchar2(72) := g_package||'.Create_Formula_FF_Result';
5060: begin
5061: hr_utility.set_location('Entering: '||l_proc,10);
5062: --
5063: --Call plan copy api to copy Formula
5064: --
5065: ben_plan_design_program_module.create_formula_result
5078: mark_future_data_exists(p_copy_entity_txn_id);
5079: -- Commit after copying the Fast Formula so that rows donot remain locked
5080: -- in the transaction
5081: commit;
5082: hr_utility.set_location('Leaving: '||l_proc,20);
5083: End Create_Formula_FF_Result;
5084:
5085: FUNCTION get_rule_name(p_copy_entity_txn_id IN Number
5086: ,p_id IN Number