DBA Data[Home] [Help]

APPS.BEN_DETERMINE_DPNT_ELIGIBILITY dependencies on HR_UTILITY

Line 205: 04-Feb-06 mhoyes 115.89 - bug4966769 - hr_utility tuning.

201: based on pdp row
202: 26-Oct-05 bmanyam 115.87 Bug 4692782 - changed c_contact cursor.
203: 16-Dec-05 bmanyam 115.88 4697057 - Relationship End-date should
204: be end-date of dependent coverage.
205: 04-Feb-06 mhoyes 115.89 - bug4966769 - hr_utility tuning.
206: 04-Apr-06 vborkar 115.90 Bug 5127698 : Changes in cursors c_pdp,
207: c_plan_enrolment_info and c_oipl_enrolment_info.
208: 17-Apr-06 bmanyam 115.91 5152062 - Changed c_dsgn, such that
209: all desgn.requirement are summed up

Line 689: g_debug := hr_utility.debug_enabled;

685: l_contact_date_end date;
686: --
687: begin
688: --
689: g_debug := hr_utility.debug_enabled;
690: --
691: -- Set sysdate to a local
692: --
693: if g_debug then

Line 694: hr_utility.set_location ('Entering '||l_proc,10);

690: --
691: -- Set sysdate to a local
692: --
693: if g_debug then
694: hr_utility.set_location ('Entering '||l_proc,10);
695: end if;
696: --
697: if g_debug then
698: hr_utility.set_location ('Fonm '|| ben_manage_life_events.fonm ,10);

Line 698: hr_utility.set_location ('Fonm '|| ben_manage_life_events.fonm ,10);

694: hr_utility.set_location ('Entering '||l_proc,10);
695: end if;
696: --
697: if g_debug then
698: hr_utility.set_location ('Fonm '|| ben_manage_life_events.fonm ,10);
699: hr_utility.set_location ('Fonm '|| ben_manage_life_events.g_fonm_cvg_strt_dt ,10);
700: end if;
701: l_sysdate := sysdate;
702: -- fonm

Line 699: hr_utility.set_location ('Fonm '|| ben_manage_life_events.g_fonm_cvg_strt_dt ,10);

695: end if;
696: --
697: if g_debug then
698: hr_utility.set_location ('Fonm '|| ben_manage_life_events.fonm ,10);
699: hr_utility.set_location ('Fonm '|| ben_manage_life_events.g_fonm_cvg_strt_dt ,10);
700: end if;
701: l_sysdate := sysdate;
702: -- fonm
703: l_lf_evt_ocrd_dt := nvl(p_lf_evt_ocrd_dt, p_effective_date);

Line 711: hr_utility.set_location ('Fonm Date '||l_lf_evt_ocrd_dt ,10);

707: l_fonm_cvg_strt_dt := ben_manage_life_events.g_fonm_cvg_strt_dt ;
708: l_lf_evt_ocrd_dt := nvl(l_fonm_cvg_strt_dt,l_lf_evt_ocrd_dt ) ;
709:
710: --
711: hr_utility.set_location ('Fonm Date '||l_lf_evt_ocrd_dt ,10);
712: end if;
713:
714: --
715: if g_debug then

Line 716: hr_utility.set_location ('pl '||p_pl_id,10);

712: end if;
713:
714: --
715: if g_debug then
716: hr_utility.set_location ('pl '||p_pl_id,10);
717: hr_utility.set_location ('plip '||p_plip_id,10);
718: hr_utility.set_location ('pgm '||p_pgm_id,10);
719: end if;
720: --

Line 717: hr_utility.set_location ('plip '||p_plip_id,10);

713:
714: --
715: if g_debug then
716: hr_utility.set_location ('pl '||p_pl_id,10);
717: hr_utility.set_location ('plip '||p_plip_id,10);
718: hr_utility.set_location ('pgm '||p_pgm_id,10);
719: end if;
720: --
721: g_egd_table.delete;

Line 718: hr_utility.set_location ('pgm '||p_pgm_id,10);

714: --
715: if g_debug then
716: hr_utility.set_location ('pl '||p_pl_id,10);
717: hr_utility.set_location ('plip '||p_plip_id,10);
718: hr_utility.set_location ('pgm '||p_pgm_id,10);
719: end if;
720: --
721: g_egd_table.delete;
722: g_egd_table := g_egd_table_temp;

Line 732: hr_utility.set_location ('Determining designation level '||l_proc,30);

728: end if;
729: -- Determine designation level
730: --
731: if g_debug then
732: hr_utility.set_location ('Determining designation level '||l_proc,30);
733: end if;
734: -- fix made for 1192368 reversed - bug#3238951
735: -- start fix 1192368
736: -- while finding out the dependency designation level we should first see

Line 806: hr_utility.set_location ('Level = '||l_level,40);

802: --
803: -- Retrieve designation code
804: --
805: if g_debug then
806: hr_utility.set_location ('Level = '||l_level,40);
807: end if;
808: --
809: if l_level = 'PGM' then
810: --

Line 859: hr_utility.set_location ('l_code '||l_code,50);

855: --
856: end if;
857: --
858: if g_debug then
859: hr_utility.set_location ('l_code '||l_code,50);
860: hr_utility.set_location ('l_level '||l_level,50);
861: hr_utility.set_location( 'l_process_flag ' || l_process_flag , 50) ;
862: end if;
863: --

Line 860: hr_utility.set_location ('l_level '||l_level,50);

856: end if;
857: --
858: if g_debug then
859: hr_utility.set_location ('l_code '||l_code,50);
860: hr_utility.set_location ('l_level '||l_level,50);
861: hr_utility.set_location( 'l_process_flag ' || l_process_flag , 50) ;
862: end if;
863: --
864: -- Check whether the choice is for Decline Plan/Option. If so,

Line 861: hr_utility.set_location( 'l_process_flag ' || l_process_flag , 50) ;

857: --
858: if g_debug then
859: hr_utility.set_location ('l_code '||l_code,50);
860: hr_utility.set_location ('l_level '||l_level,50);
861: hr_utility.set_location( 'l_process_flag ' || l_process_flag , 50) ;
862: end if;
863: --
864: -- Check whether the choice is for Decline Plan/Option. If so,
865: -- no need to create eligible dependents for them.

Line 880: hr_utility.set_location ('Determining life event support '||l_proc,50);

876: --
877: -- Does this life event support dependent changes?
878: --
879: if g_debug then
880: hr_utility.set_location ('Determining life event support '||l_proc,50);
881: hr_utility.set_location ('Process Flag '||l_process_flag,50);
882: end if;
883: --
884: if l_process_flag = 'Y' then

Line 881: hr_utility.set_location ('Process Flag '||l_process_flag,50);

877: -- Does this life event support dependent changes?
878: --
879: if g_debug then
880: hr_utility.set_location ('Determining life event support '||l_proc,50);
881: hr_utility.set_location ('Process Flag '||l_process_flag,50);
882: end if;
883: --
884: if l_process_flag = 'Y' then
885: --

Line 909: hr_utility.set_location( ' l_pl_typ_id ' || l_pl_typ_id , 40) ;

905: fetch c_pl_typ into l_pl_typ_id ;
906: close c_pl_typ ;
907: --
908: if g_debug then
909: hr_utility.set_location( ' l_pl_typ_id ' || l_pl_typ_id , 40) ;
910: hr_utility.set_location( ' l_process_flag ' || l_process_flag , 40) ;
911: end if;
912: --
913: open c_ler_chg_dep(l_level);

Line 910: hr_utility.set_location( ' l_process_flag ' || l_process_flag , 40) ;

906: close c_pl_typ ;
907: --
908: if g_debug then
909: hr_utility.set_location( ' l_pl_typ_id ' || l_pl_typ_id , 40) ;
910: hr_utility.set_location( ' l_process_flag ' || l_process_flag , 40) ;
911: end if;
912: --
913: open c_ler_chg_dep(l_level);
914: --

Line 922: hr_utility.set_location( ' ler chagne l_process_flag ' || l_process_flag , 40) ;

918: --
919: l_process_flag := 'N';
920: --
921: if g_debug then
922: hr_utility.set_location( ' ler chagne l_process_flag ' || l_process_flag , 40) ;
923: end if;
924: else
925: --
926: l_ler_chg_dpnt_cvg_cd := l_ler_chg_dep.ler_chg_dpnt_cvg_cd;

Line 979: hr_utility.set_location( ' ler chagne l_process_flag ' || l_process_flag , 50) ;

975: --
976: l_process_flag := 'N';
977: --
978: end if;
979: hr_utility.set_location( ' ler chagne l_process_flag ' || l_process_flag , 50) ;
980:
981: if l_ler_chg_dpnt_cvg_cd in ('MNANRD', 'N','MRD') then
982: --
983: -- If the below flag is true then process the dependents

Line 988: hr_utility.set_location ('mnanrd set',59);

984: -- as if process_flag='Y' but update choice to be not
985: -- designatable.
986: --
987: l_mnanrd_condition:=true;
988: hr_utility.set_location ('mnanrd set',59);
989: --
990: end if;
991: --
992: end if;

Line 999: hr_utility.set_location ('Checking comp object dep allowed '||l_proc,60);

995: --
996: end if;
997: --
998: if g_debug then
999: hr_utility.set_location ('Checking comp object dep allowed '||l_proc,60);
1000: hr_utility.set_location ('Process Flag '||l_process_flag,50);
1001: end if;
1002: --
1003: if l_process_flag = 'Y' then

Line 1000: hr_utility.set_location ('Process Flag '||l_process_flag,50);

996: end if;
997: --
998: if g_debug then
999: hr_utility.set_location ('Checking comp object dep allowed '||l_proc,60);
1000: hr_utility.set_location ('Process Flag '||l_process_flag,50);
1001: end if;
1002: --
1003: if l_process_flag = 'Y' then
1004: hr_utility.set_location ('in this if',50);

Line 1004: hr_utility.set_location ('in this if',50);

1000: hr_utility.set_location ('Process Flag '||l_process_flag,50);
1001: end if;
1002: --
1003: if l_process_flag = 'Y' then
1004: hr_utility.set_location ('in this if',50);
1005: --
1006: -- See if we can find designation requirements ben_dsgn_rqmt_f
1007: -- If designation requirments does not exist, than any number
1008: -- or type of dependents are allowed. If designation requirements

Line 1033: hr_utility.set_location ('dsgn not found',50);

1029: nvl(l_mx_dpnts_alwd_num, -1) = 0 and
1030: l_no_mn_num_dfnd_flag = 'N' then
1031: -- 5152062 : Set process_flag to 'N' , only if if explicitly set l_mn_dpnts_rqd_num to 'Y'.
1032: --
1033: hr_utility.set_location ('dsgn not found',50);
1034: l_process_flag := 'N';
1035: --
1036: end if;
1037: --

Line 1053: hr_utility.set_location ('Process Flag '||l_process_flag,50);

1049:
1050: end if;
1051: --
1052: if g_debug then
1053: hr_utility.set_location ('Process Flag '||l_process_flag,50);
1054: end if;
1055: --
1056: -- Determine coverage dates
1057: --

Line 1060: hr_utility.set_location ('Determining coverage dates '||l_proc,70);

1056: -- Determine coverage dates
1057: --
1058: if l_process_flag = 'Y' or l_mnanrd_condition then
1059: --
1060: hr_utility.set_location ('Determining coverage dates '||l_proc,70);
1061: --
1062: l_cvg_strt_cd := l_ler_chg_dep.cvg_eff_strt_cd;
1063: l_cvg_strt_rl := l_ler_chg_dep.cvg_eff_strt_rl;
1064: l_cvg_end_cd := l_ler_chg_dep.cvg_eff_end_cd;

Line 1107: hr_utility.set_location('cvg_strt_cd'||l_cvg_strt_cd,10);

1103: else
1104: --
1105: IF l_cvg_strt_cd <> 'RL' THEN
1106: --
1107: hr_utility.set_location('cvg_strt_cd'||l_cvg_strt_cd,10);
1108: hr_utility.set_location('cvg_strt_rl'||l_cvg_strt_rl,10);
1109: ben_determine_date.main
1110: (P_DATE_CD => l_cvg_strt_cd,
1111: P_BUSINESS_GROUP_ID => p_business_group_id,

Line 1108: hr_utility.set_location('cvg_strt_rl'||l_cvg_strt_rl,10);

1104: --
1105: IF l_cvg_strt_cd <> 'RL' THEN
1106: --
1107: hr_utility.set_location('cvg_strt_cd'||l_cvg_strt_cd,10);
1108: hr_utility.set_location('cvg_strt_rl'||l_cvg_strt_rl,10);
1109: ben_determine_date.main
1110: (P_DATE_CD => l_cvg_strt_cd,
1111: P_BUSINESS_GROUP_ID => p_business_group_id,
1112: P_PERSON_ID => p_person_id,

Line 1131: hr_utility.set_location ('l_Process_flag '||l_process_flag,80);

1127: --
1128: end if;
1129: --
1130: if g_debug then
1131: hr_utility.set_location ('l_Process_flag '||l_process_flag,80);
1132: end if;
1133: --
1134: g_upd_epe_egd_rec.g_process_flag := l_Process_flag;
1135: g_mnanrd_condition:=l_mnanrd_condition;

Line 1145: hr_utility.set_location ('open c_contact2 '||l_proc,90);

1141: if l_Process_flag = 'Y' or l_mnanrd_condition then
1142: --
1143: -- Loop through potential dependent pool
1144: --
1145: hr_utility.set_location ('open c_contact2 '||l_proc,90);
1146: --
1147: -- Get the enrollment result row.
1148: --
1149: if (p_oipl_id is null) then

Line 1165: hr_utility.set_location ('again in loop',50);

1161: end if;
1162: --
1163: open c_contact;
1164: loop
1165: hr_utility.set_location ('again in loop',50);
1166:
1167: --
1168: fetch c_contact into l_contact;
1169: exit when c_contact%notfound;

Line 1179: hr_utility.set_location('cvg_strt_cd'||l_cvg_strt_cd,10);

1175: -- Following condition is added to fix Bug 1531647 to add inpute value contact_person_id
1176:
1177: IF l_cvg_strt_cd = 'RL' THEN
1178: --
1179: hr_utility.set_location('cvg_strt_cd'||l_cvg_strt_cd,10);
1180: hr_utility.set_location('cvg_strt_rl'||l_cvg_strt_rl,10);
1181: ben_determine_date.main
1182: (P_DATE_CD => l_cvg_strt_cd,
1183: P_BUSINESS_GROUP_ID => p_business_group_id,

Line 1180: hr_utility.set_location('cvg_strt_rl'||l_cvg_strt_rl,10);

1176:
1177: IF l_cvg_strt_cd = 'RL' THEN
1178: --
1179: hr_utility.set_location('cvg_strt_cd'||l_cvg_strt_cd,10);
1180: hr_utility.set_location('cvg_strt_rl'||l_cvg_strt_rl,10);
1181: ben_determine_date.main
1182: (P_DATE_CD => l_cvg_strt_cd,
1183: P_BUSINESS_GROUP_ID => p_business_group_id,
1184: P_PERSON_ID => p_person_id,

Line 1214: hr_utility.set_location ('BEDEP_MN '||l_proc,90);

1210: close c_pdp;
1211: --
1212: if l_contact.contact_active_flag='Y' then
1213: --
1214: hr_utility.set_location ('BEDEP_MN '||l_proc,90);
1215: --fonm taken care inside of the code dont pass any date
1216: ben_evaluate_dpnt_elg_profiles.main
1217: (p_contact_relationship_id => l_contact.contact_relationship_id,
1218: p_contact_person_id => l_contact.contact_person_id,

Line 1231: hr_utility.set_location ('Dn BEDEP_MN '||l_proc,90);

1227: p_dpnt_cvg_strt_dt => l_dpnt_cvg_strt_dt,
1228: p_level => l_level,
1229: p_dependent_eligible_flag => l_elig_flag,
1230: p_dpnt_inelig_rsn_cd => l_inelig_rsn_cd);
1231: hr_utility.set_location ('Dn BEDEP_MN '||l_proc,90);
1232: else
1233: hr_utility.set_location ('contact ended '||l_proc,90);
1234: l_elig_flag:='N';
1235: l_contact_date_end := l_contact.date_end;

Line 1233: hr_utility.set_location ('contact ended '||l_proc,90);

1229: p_dependent_eligible_flag => l_elig_flag,
1230: p_dpnt_inelig_rsn_cd => l_inelig_rsn_cd);
1231: hr_utility.set_location ('Dn BEDEP_MN '||l_proc,90);
1232: else
1233: hr_utility.set_location ('contact ended '||l_proc,90);
1234: l_elig_flag:='N';
1235: l_contact_date_end := l_contact.date_end;
1236: end if;
1237: --

Line 1265: hr_utility.set_location ('Dn BEDP_GEDR '||l_proc,90);

1261: ,p_elig_dpnt_rec => l_egd_rec
1262: );
1263: --
1264: end if;
1265: hr_utility.set_location ('Dn BEDP_GEDR '||l_proc,90);
1266: --
1267: if l_elig_flag = 'Y' then
1268: --
1269: g_rec.person_id := l_per_in_ler.person_id;

Line 1280: hr_utility.set_location (' Elig Y BED_GEPID '||l_proc,90);

1276: g_rec.effective_date := p_effective_date;
1277: --
1278: benutils.write(p_rec => g_rec);
1279: --
1280: hr_utility.set_location (' Elig Y BED_GEPID '||l_proc,90);
1281: if p_elig_per_id is not null
1282: then
1283: --
1284: l_elig_per_id := p_elig_per_id;

Line 1302: hr_utility.set_location (' Elig Y BED_CED '||l_proc,90);

1298: );
1299: --
1300: end if;
1301: --
1302: hr_utility.set_location (' Elig Y BED_CED '||l_proc,90);
1303: --
1304: -- 3685120 - Get the environment details and if it is U then create EGD
1305: --
1306: ben_env_object.get(p_rec => l_env);

Line 1309: hr_utility.set_location('ACE l_env.mode_cd = ' || l_env.mode_cd, 9999);

1305: --
1306: ben_env_object.get(p_rec => l_env);
1307: --
1308: -- Bug 5936849
1309: hr_utility.set_location('ACE l_env.mode_cd = ' || l_env.mode_cd, 9999);
1310: hr_utility.set_location('ACE l_env.benefit_action_id = ' || l_env.benefit_action_id, 9999);
1311: --
1312: if l_env.mode_cd is null
1313: then

Line 1310: hr_utility.set_location('ACE l_env.benefit_action_id = ' || l_env.benefit_action_id, 9999);

1306: ben_env_object.get(p_rec => l_env);
1307: --
1308: -- Bug 5936849
1309: hr_utility.set_location('ACE l_env.mode_cd = ' || l_env.mode_cd, 9999);
1310: hr_utility.set_location('ACE l_env.benefit_action_id = ' || l_env.benefit_action_id, 9999);
1311: --
1312: if l_env.mode_cd is null
1313: then
1314: --

Line 1319: hr_utility.set_location('ACE l_benmngle_parm_rec.mode_cd = ' || l_benmngle_parm_rec.mode_cd, 9999);

1315: benutils.get_batch_parameters(p_benefit_action_id => l_env.benefit_action_id,
1316: p_rec => l_benmngle_parm_rec
1317: );
1318: --
1319: hr_utility.set_location('ACE l_benmngle_parm_rec.mode_cd = ' || l_benmngle_parm_rec.mode_cd, 9999);
1320: --
1321: l_env.mode_cd := l_benmngle_parm_rec.mode_cd;
1322: --
1323: end if;

Line 1327: hr_utility.set_location (' env mode cd '||l_env.mode_cd ,90);

1323: end if;
1324: --
1325: -- End Bug 5936849
1326:
1327: hr_utility.set_location (' env mode cd '||l_env.mode_cd ,90);
1328: --bug#3495592 - cursor to check already created elig_dpnt record
1329: open c_dpnt_exist (p_per_in_ler_id =>l_per_in_ler.per_in_ler_id,
1330: p_elig_per_id => l_elig_per_id,
1331: p_elig_per_opt_id => l_elig_per_opt_id,

Line 1337: hr_utility.set_location ('inside ',11);

1333: fetch c_dpnt_exist into l_dummy;
1334: if c_dpnt_exist%notfound or nvl(l_env.mode_cd,'~') in ('R', 'U') then
1335: if l_env.mode_cd in ('U','R') then
1336: --
1337: hr_utility.set_location ('inside ',11);
1338: /*j
1339: l_elig_dpnt_id := ben_manage_unres_life_events.egd_exists
1340: (p_PER_IN_LER_ID => 1 --l_per_in_ler.per_in_ler_id
1341: ,p_ELIG_PER_ID => 1 --l_elig_per_id

Line 1352: hr_utility.set_location ('after',12);

1348: ,p_ELIG_PER_ID => 1
1349: ,p_ELIG_PER_OPT_ID => 1
1350: ,p_DPNT_PERSON_ID =>1
1351: );
1352: hr_utility.set_location ('after',12);
1353: end if;
1354: if l_elig_dpnt_id is not null then
1355: --
1356: ben_manage_unres_life_events.update_elig_dpnt

Line 1407: hr_utility.set_location ('Dn Elig Y '||l_proc,90);

1403: );
1404: --
1405: end if;
1406:
1407: hr_utility.set_location ('Dn Elig Y '||l_proc,90);
1408:
1409: --
1410: l_next_row := nvl(g_egd_table.LAST, 0) + 1;
1411: g_egd_table(l_next_row).object_version_number := l_egd_object_version_number;

Line 1439: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);

1435: fnd_message.raise_error;
1436: --
1437: else
1438: --
1439: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1440: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1441: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1442: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1443: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);

Line 1440: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);

1436: --
1437: else
1438: --
1439: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1440: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1441: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1442: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1443: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);
1444: --

Line 1441: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);

1437: else
1438: --
1439: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1440: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1441: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1442: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1443: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);
1444: --
1445: -- 4697057 : If relationship is end-dated, determine end-date as of

Line 1442: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);

1438: --
1439: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1440: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1441: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1442: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1443: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);
1444: --
1445: -- 4697057 : If relationship is end-dated, determine end-date as of
1446: -- relationship_end, rather than ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,

Line 1443: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);

1439: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1440: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1441: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1442: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1443: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);
1444: --
1445: -- 4697057 : If relationship is end-dated, determine end-date as of
1446: -- relationship_end, rather than ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,
1447: -- since ben_evaluate_dpnt_elg_profiles.set_elig_change_dt is never

Line 1474: hr_utility.set_location ('Dn Elig N BENDETDT '||l_proc,90);

1470: P_PARAM1 => 'CON_PERSON_ID',
1471: P_PARAM1_VALUE => to_char(l_contact.contact_person_id));
1472: --
1473: end if;
1474: hr_utility.set_location ('Dn Elig N BENDETDT '||l_proc,90);
1475: --
1476: -- According to the cursor, the coverage has started as of the
1477: -- effective date, so the coverage through date should atleast be
1478: -- the coverge start date. If the coverage through date is less

Line 1521: hr_utility.set_location ('datetrack_mode '||l_datetrack_mode,10);

1517: --
1518: l_datetrack_mode := hr_api.g_correction;
1519: --
1520: end if;
1521: hr_utility.set_location ('datetrack_mode '||l_datetrack_mode,10);
1522: --
1523: -- Update the eligible dependent record
1524: --
1525: hr_utility.set_location (' Elig N BECD_UECD '||l_proc,90);

Line 1525: hr_utility.set_location (' Elig N BECD_UECD '||l_proc,90);

1521: hr_utility.set_location ('datetrack_mode '||l_datetrack_mode,10);
1522: --
1523: -- Update the eligible dependent record
1524: --
1525: hr_utility.set_location (' Elig N BECD_UECD '||l_proc,90);
1526: hr_utility.set_location (' l_cvg_thru_dt '||l_cvg_end_dt,90);
1527: --
1528: ben_elig_cvrd_dpnt_api.update_elig_cvrd_dpnt
1529: (p_elig_cvrd_dpnt_id => l_elig_cvrd_dpnt_id

Line 1526: hr_utility.set_location (' l_cvg_thru_dt '||l_cvg_end_dt,90);

1522: --
1523: -- Update the eligible dependent record
1524: --
1525: hr_utility.set_location (' Elig N BECD_UECD '||l_proc,90);
1526: hr_utility.set_location (' l_cvg_thru_dt '||l_cvg_end_dt,90);
1527: --
1528: ben_elig_cvrd_dpnt_api.update_elig_cvrd_dpnt
1529: (p_elig_cvrd_dpnt_id => l_elig_cvrd_dpnt_id
1530: ,p_effective_start_date => l_pdp_effective_start_date

Line 1548: hr_utility.set_location(' Set Dpnt InElig ' || (l_contact_date_end -1), 10);

1544: --
1545: -- RCHASE - update elig_dpnt row when coverage is lost due to ineligibility
1546: if l_egd_rec.dpnt_inelig_flag = 'N' then
1547: --
1548: hr_utility.set_location(' Set Dpnt InElig ' || (l_contact_date_end -1), 10);
1549: hr_utility.set_location(' l_egd_rec.object_version_number ' || l_egd_rec.object_version_number, 10);
1550: --
1551: ben_elig_dpnt_api.update_elig_dpnt(
1552: p_elig_dpnt_id => l_egd_rec.elig_dpnt_id

Line 1549: hr_utility.set_location(' l_egd_rec.object_version_number ' || l_egd_rec.object_version_number, 10);

1545: -- RCHASE - update elig_dpnt row when coverage is lost due to ineligibility
1546: if l_egd_rec.dpnt_inelig_flag = 'N' then
1547: --
1548: hr_utility.set_location(' Set Dpnt InElig ' || (l_contact_date_end -1), 10);
1549: hr_utility.set_location(' l_egd_rec.object_version_number ' || l_egd_rec.object_version_number, 10);
1550: --
1551: ben_elig_dpnt_api.update_elig_dpnt(
1552: p_elig_dpnt_id => l_egd_rec.elig_dpnt_id
1553: ,p_object_version_number => l_egd_rec.object_version_number

Line 1565: hr_utility.set_location ('dpnt ineligible ',90);

1561: --
1562: -- Update global variable so a benefit assignment can
1563: -- be written.
1564: --
1565: hr_utility.set_location ('dpnt ineligible ',90);
1566: g_dpnt_ineligible := true;
1567: --
1568: end if;
1569: --

Line 1572: hr_utility.set_location (' Elig N BED_UED '||l_proc,90);

1568: end if;
1569: --
1570: if l_egd_rec_found then
1571: --
1572: hr_utility.set_location (' Elig N BED_UED '||l_proc,90);
1573: --
1574: ben_elig_dpnt_api.update_perf_elig_dpnt
1575: (p_elig_dpnt_id => l_egd_rec.elig_dpnt_id
1576: ,p_per_in_ler_id => l_per_in_ler.per_in_ler_id

Line 1590: hr_utility.set_location ('Dn Elig N '||l_proc,90);

1586: );
1587: --
1588: end if;
1589: --
1590: hr_utility.set_location ('Dn Elig N '||l_proc,90);
1591: end if;
1592: end if; -- elig_flag = 'Y'
1593: --
1594: hr_utility.set_location ('End Con Loop '||l_proc,90);

Line 1594: hr_utility.set_location ('End Con Loop '||l_proc,90);

1590: hr_utility.set_location ('Dn Elig N '||l_proc,90);
1591: end if;
1592: end if; -- elig_flag = 'Y'
1593: --
1594: hr_utility.set_location ('End Con Loop '||l_proc,90);
1595: end loop;
1596: --
1597: close c_contact;
1598: hr_utility.set_location ('close c_contact '||l_proc,90);

Line 1598: hr_utility.set_location ('close c_contact '||l_proc,90);

1594: hr_utility.set_location ('End Con Loop '||l_proc,90);
1595: end loop;
1596: --
1597: close c_contact;
1598: hr_utility.set_location ('close c_contact '||l_proc,90);
1599: --
1600: end if;
1601: --
1602: if g_debug then

Line 1603: hr_utility.set_location ('Leaving '||l_proc,80);

1599: --
1600: end if;
1601: --
1602: if g_debug then
1603: hr_utility.set_location ('Leaving '||l_proc,80);
1604: end if;
1605: end;
1606: --
1607: -- Task 131 (pbodla): Elig dependent records are created soon after

Line 1673: g_debug := hr_utility.debug_enabled;

1669: l_sysdate date;
1670: --
1671: begin
1672: --
1673: g_debug := hr_utility.debug_enabled;
1674: --
1675: hr_utility.set_location ('Entering '||l_proc,10);
1676: --
1677: -- Set sysdate to a local

Line 1675: hr_utility.set_location ('Entering '||l_proc,10);

1671: begin
1672: --
1673: g_debug := hr_utility.debug_enabled;
1674: --
1675: hr_utility.set_location ('Entering '||l_proc,10);
1676: --
1677: -- Set sysdate to a local
1678: --
1679: l_sysdate := sysdate;

Line 1683: hr_utility.set_location('Elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,10);

1679: l_sysdate := sysdate;
1680: --
1681: -- get the electable choice
1682: --
1683: hr_utility.set_location('Elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,10);
1684: l_chc_id := p_elig_per_elctbl_chc_id;
1685: --
1686: -- Check that current comp object loop EPE row is set
1687: --

Line 1744: hr_utility.set_location ('Updating electable choice '||l_proc,80);

1740: end if;
1741: --
1742: close c_per_in_ler;
1743: --
1744: hr_utility.set_location ('Updating electable choice '||l_proc,80);
1745: hr_utility.set_location ('g_Process_flag '||g_upd_epe_egd_rec.g_process_flag,80);
1746: --
1747: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1748: --

Line 1745: hr_utility.set_location ('g_Process_flag '||g_upd_epe_egd_rec.g_process_flag,80);

1741: --
1742: close c_per_in_ler;
1743: --
1744: hr_utility.set_location ('Updating electable choice '||l_proc,80);
1745: hr_utility.set_location ('g_Process_flag '||g_upd_epe_egd_rec.g_process_flag,80);
1746: --
1747: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1748: --
1749: hr_utility.set_location ('l_elctbl_flag '||l_elctbl_flag,40);

Line 1749: hr_utility.set_location ('l_elctbl_flag '||l_elctbl_flag,40);

1745: hr_utility.set_location ('g_Process_flag '||g_upd_epe_egd_rec.g_process_flag,80);
1746: --
1747: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1748: --
1749: hr_utility.set_location ('l_elctbl_flag '||l_elctbl_flag,40);
1750: hr_utility.set_location ('pl_id '||l_elctbl_chc.pl_id,50);
1751: hr_utility.set_location ('oipl_id '||l_elctbl_chc.oipl_id,50);
1752: -- Also must update g_code
1753: -- p_allws_dpnt_dsgn_flag will go away and be replaced by

Line 1750: hr_utility.set_location ('pl_id '||l_elctbl_chc.pl_id,50);

1746: --
1747: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1748: --
1749: hr_utility.set_location ('l_elctbl_flag '||l_elctbl_flag,40);
1750: hr_utility.set_location ('pl_id '||l_elctbl_chc.pl_id,50);
1751: hr_utility.set_location ('oipl_id '||l_elctbl_chc.oipl_id,50);
1752: -- Also must update g_code
1753: -- p_allws_dpnt_dsgn_flag will go away and be replaced by
1754: -- 1. Designation code => g_code

Line 1751: hr_utility.set_location ('oipl_id '||l_elctbl_chc.oipl_id,50);

1747: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1748: --
1749: hr_utility.set_location ('l_elctbl_flag '||l_elctbl_flag,40);
1750: hr_utility.set_location ('pl_id '||l_elctbl_chc.pl_id,50);
1751: hr_utility.set_location ('oipl_id '||l_elctbl_chc.oipl_id,50);
1752: -- Also must update g_code
1753: -- p_allws_dpnt_dsgn_flag will go away and be replaced by
1754: -- 1. Designation code => g_code
1755: -- 2. LER chg dep cd => g_ler_chg_dpnt_cvg_cd

Line 1760: hr_utility.set_location ('BEEPEAPI_UPD '||l_proc,80);

1756: -- 3. Allows dep cvg flag => g_process_flag
1757: --
1758: -- Update the allows_dpnt_dsgn_flag to 'N'
1759: --
1760: hr_utility.set_location ('BEEPEAPI_UPD '||l_proc,80);
1761: ben_elig_per_elc_chc_api.update_perf_elig_per_elc_chc
1762: (p_elig_per_elctbl_chc_id => l_elctbl_chc.elig_per_elctbl_chc_id,
1763: p_alws_dpnt_dsgn_flag => 'N',
1764: p_object_version_number => l_elctbl_chc.object_version_number,

Line 1774: hr_utility.set_location ('Dn BEEPEAPI_UPD '||l_proc,80);

1770: p_request_id => fnd_global.conc_request_id,
1771: p_program_update_date => l_sysdate,
1772: p_dpnt_cvg_strt_dt_cd => g_upd_epe_egd_rec.g_cvg_strt_cd ,
1773: p_dpnt_cvg_strt_dt_rl => g_upd_epe_egd_rec.g_cvg_strt_rl );
1774: hr_utility.set_location ('Dn BEEPEAPI_UPD '||l_proc,80);
1775: --
1776: else
1777: --
1778: -- Update the allows_dpnt_dsgn_flag

Line 1784: hr_utility.set_location ('BEEPEAPI_UPD 1 '||l_proc,80);

1780: -- Not sure at this time if we should be storing
1781: -- Codes, dates, rules, or other codes
1782: -- Now writing dsgn_cd and cvg_cd
1783: --
1784: hr_utility.set_location ('BEEPEAPI_UPD 1 '||l_proc,80);
1785: ben_elig_per_elc_chc_api.update_perf_elig_per_elc_chc
1786: (p_elig_per_elctbl_chc_id => l_elctbl_chc.elig_per_elctbl_chc_id,
1787: p_alws_dpnt_dsgn_flag => 'Y',
1788: p_object_version_number => l_elctbl_chc.object_version_number,

Line 1799: hr_utility.set_location ('Dn BEEPEAPI_UPD 1 '||l_proc,80);

1795: p_program_update_date => l_sysdate,
1796: p_dpnt_cvg_strt_dt_cd => g_upd_epe_egd_rec.g_cvg_strt_cd ,
1797: p_dpnt_cvg_strt_dt_rl => g_upd_epe_egd_rec.g_cvg_strt_rl );
1798: --
1799: hr_utility.set_location ('Dn BEEPEAPI_UPD 1 '||l_proc,80);
1800: end if;
1801: if g_upd_epe_egd_rec.g_process_flag = 'Y' or g_mnanrd_condition then
1802: hr_utility.set_location ('BEEGDAPI_UPD Loop '||l_proc,80);
1803: --

Line 1802: hr_utility.set_location ('BEEGDAPI_UPD Loop '||l_proc,80);

1798: --
1799: hr_utility.set_location ('Dn BEEPEAPI_UPD 1 '||l_proc,80);
1800: end if;
1801: if g_upd_epe_egd_rec.g_process_flag = 'Y' or g_mnanrd_condition then
1802: hr_utility.set_location ('BEEGDAPI_UPD Loop '||l_proc,80);
1803: --
1804: -- Now update all the elig dpnt rows with epe id.
1805: --
1806: if nvl(g_egd_table.last, 0) > 0 then

Line 1809: hr_utility.set_location ('St BEEGDAPI_UPD loop '||l_proc,80);

1805: --
1806: if nvl(g_egd_table.last, 0) > 0 then
1807: for l_curr_count in g_egd_table.first..g_egd_table.last
1808: loop
1809: hr_utility.set_location ('St BEEGDAPI_UPD loop '||l_proc,80);
1810: --
1811: -- Update the egd row with electable choice id.
1812: --
1813: ben_elig_dpnt_api.update_perf_elig_dpnt

Line 1821: hr_utility.set_location ('End BEEGDAPI_UPD loop '||l_proc,80);

1817: p_object_version_number =>
1818: g_egd_table(l_curr_count).object_version_number,
1819: p_effective_date => p_effective_date,
1820: p_program_update_date => l_sysdate);
1821: hr_utility.set_location ('End BEEGDAPI_UPD loop '||l_proc,80);
1822: --
1823: end loop;
1824: --
1825: hr_utility.set_location ('Dn BEEGDAPI_UPD Loop '||l_proc,80);

Line 1825: hr_utility.set_location ('Dn BEEGDAPI_UPD Loop '||l_proc,80);

1821: hr_utility.set_location ('End BEEGDAPI_UPD loop '||l_proc,80);
1822: --
1823: end loop;
1824: --
1825: hr_utility.set_location ('Dn BEEGDAPI_UPD Loop '||l_proc,80);
1826: end if;
1827:
1828: end if;
1829: --

Line 1831: hr_utility.set_location ('Leaving '||l_proc,80);

1827:
1828: end if;
1829: --
1830: if g_debug then
1831: hr_utility.set_location ('Leaving '||l_proc,80);
1832: end if;
1833: end;
1834: END;