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 693: g_debug := hr_utility.debug_enabled;

689: l_contact_date_end date;
690: --
691: begin
692: --
693: g_debug := hr_utility.debug_enabled;
694: --
695: -- Set sysdate to a local
696: --
697: if g_debug then

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

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

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

698: hr_utility.set_location ('Entering '||l_proc,10);
699: end if;
700: --
701: if g_debug then
702: hr_utility.set_location ('Fonm '|| ben_manage_life_events.fonm ,10);
703: hr_utility.set_location ('Fonm '|| ben_manage_life_events.g_fonm_cvg_strt_dt ,10);
704: end if;
705: l_sysdate := sysdate;
706: -- fonm

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

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

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

711: l_fonm_cvg_strt_dt := ben_manage_life_events.g_fonm_cvg_strt_dt ;
712: l_lf_evt_ocrd_dt := nvl(l_fonm_cvg_strt_dt,l_lf_evt_ocrd_dt ) ;
713:
714: --
715: hr_utility.set_location ('Fonm Date '||l_lf_evt_ocrd_dt ,10);
716: end if;
717:
718: --
719: if g_debug then

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

716: end if;
717:
718: --
719: if g_debug then
720: hr_utility.set_location ('pl '||p_pl_id,10);
721: hr_utility.set_location ('plip '||p_plip_id,10);
722: hr_utility.set_location ('pgm '||p_pgm_id,10);
723: end if;
724: --

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

717:
718: --
719: if g_debug then
720: hr_utility.set_location ('pl '||p_pl_id,10);
721: hr_utility.set_location ('plip '||p_plip_id,10);
722: hr_utility.set_location ('pgm '||p_pgm_id,10);
723: end if;
724: --
725: g_egd_table.delete;

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

718: --
719: if g_debug then
720: hr_utility.set_location ('pl '||p_pl_id,10);
721: hr_utility.set_location ('plip '||p_plip_id,10);
722: hr_utility.set_location ('pgm '||p_pgm_id,10);
723: end if;
724: --
725: g_egd_table.delete;
726: g_egd_table := g_egd_table_temp;

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

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

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

806: --
807: -- Retrieve designation code
808: --
809: if g_debug then
810: hr_utility.set_location ('Level = '||l_level,40);
811: end if;
812: --
813: if l_level = 'PGM' then
814: --

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

859: --
860: end if;
861: --
862: if g_debug then
863: hr_utility.set_location ('l_code '||l_code,50);
864: hr_utility.set_location ('l_level '||l_level,50);
865: hr_utility.set_location( 'l_process_flag ' || l_process_flag , 50) ;
866: end if;
867: --

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

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

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

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

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

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

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

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

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

909: fetch c_pl_typ into l_pl_typ_id ;
910: close c_pl_typ ;
911: --
912: if g_debug then
913: hr_utility.set_location( ' l_pl_typ_id ' || l_pl_typ_id , 40) ;
914: hr_utility.set_location( ' l_process_flag ' || l_process_flag , 40) ;
915: end if;
916: --
917: open c_ler_chg_dep(l_level);

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

910: close c_pl_typ ;
911: --
912: if g_debug then
913: hr_utility.set_location( ' l_pl_typ_id ' || l_pl_typ_id , 40) ;
914: hr_utility.set_location( ' l_process_flag ' || l_process_flag , 40) ;
915: end if;
916: --
917: open c_ler_chg_dep(l_level);
918: --

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

922: --
923: l_process_flag := 'N';
924: --
925: if g_debug then
926: hr_utility.set_location( ' ler chagne l_process_flag ' || l_process_flag , 40) ;
927: end if;
928: else
929: --
930: l_ler_chg_dpnt_cvg_cd := l_ler_chg_dep.ler_chg_dpnt_cvg_cd;

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

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

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

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

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

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

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

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

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

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

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

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

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

1053:
1054: end if;
1055: --
1056: if g_debug then
1057: hr_utility.set_location ('Process Flag '||l_process_flag,50);
1058: end if;
1059: --
1060: -- Determine coverage dates
1061: --

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

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

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

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

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

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

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

1131: --
1132: end if;
1133: --
1134: if g_debug then
1135: hr_utility.set_location ('l_Process_flag '||l_process_flag,80);
1136: end if;
1137: --
1138: g_upd_epe_egd_rec.g_process_flag := l_Process_flag;
1139: g_mnanrd_condition:=l_mnanrd_condition;

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

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

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

1165: end if;
1166: --
1167: open c_contact;
1168: loop
1169: hr_utility.set_location ('again in loop',50);
1170:
1171: --
1172: fetch c_contact into l_contact;
1173: exit when c_contact%notfound;

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

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

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

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

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

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

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

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

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

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

Line 1242: hr_utility.set_location ('l_contact.date_of_death '||l_contact.date_of_death,110);

1238: l_elig_flag:='N';
1239: l_contact_date_end := l_contact.date_end;
1240: end if;
1241: --
1242: hr_utility.set_location ('l_contact.date_of_death '||l_contact.date_of_death,110);
1243: hr_utility.set_location ('l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,110);
1244:
1245: -- Bug 7481099
1246: -- if dependent is not already enrolled and if he is dead, set elig flag to N

Line 1243: hr_utility.set_location ('l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,110);

1239: l_contact_date_end := l_contact.date_end;
1240: end if;
1241: --
1242: hr_utility.set_location ('l_contact.date_of_death '||l_contact.date_of_death,110);
1243: hr_utility.set_location ('l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,110);
1244:
1245: -- Bug 7481099
1246: -- if dependent is not already enrolled and if he is dead, set elig flag to N
1247: if not l_pdp_rec_found and nvl(l_contact.date_of_death,hr_api.g_eot) <= l_lf_evt_ocrd_dt then

Line 1249: hr_utility.set_location ('setting elig_flag to N ',110);

1245: -- Bug 7481099
1246: -- if dependent is not already enrolled and if he is dead, set elig flag to N
1247: if not l_pdp_rec_found and nvl(l_contact.date_of_death,hr_api.g_eot) <= l_lf_evt_ocrd_dt then
1248: l_elig_flag := 'N';
1249: hr_utility.set_location ('setting elig_flag to N ',110);
1250: end if;
1251:
1252: -- Bug 7481099
1253:

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

1277: ,p_elig_dpnt_rec => l_egd_rec
1278: );
1279: --
1280: end if;
1281: hr_utility.set_location ('Dn BEDP_GEDR '||l_proc,90);
1282: --
1283: if l_elig_flag = 'Y' then
1284: --
1285: g_rec.person_id := l_per_in_ler.person_id;

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

1292: g_rec.effective_date := p_effective_date;
1293: --
1294: benutils.write(p_rec => g_rec);
1295: --
1296: hr_utility.set_location (' Elig Y BED_GEPID '||l_proc,90);
1297: if p_elig_per_id is not null
1298: then
1299: --
1300: l_elig_per_id := p_elig_per_id;

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

1314: );
1315: --
1316: end if;
1317: --
1318: hr_utility.set_location (' Elig Y BED_CED '||l_proc,90);
1319: --
1320: -- 3685120 - Get the environment details and if it is U then create EGD
1321: --
1322: ben_env_object.get(p_rec => l_env);

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

1321: --
1322: ben_env_object.get(p_rec => l_env);
1323: --
1324: -- Bug 5936849
1325: hr_utility.set_location('ACE l_env.mode_cd = ' || l_env.mode_cd, 9999);
1326: hr_utility.set_location('ACE l_env.benefit_action_id = ' || l_env.benefit_action_id, 9999);
1327: --
1328: if l_env.mode_cd is null
1329: then

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

1322: ben_env_object.get(p_rec => l_env);
1323: --
1324: -- Bug 5936849
1325: hr_utility.set_location('ACE l_env.mode_cd = ' || l_env.mode_cd, 9999);
1326: hr_utility.set_location('ACE l_env.benefit_action_id = ' || l_env.benefit_action_id, 9999);
1327: --
1328: if l_env.mode_cd is null
1329: then
1330: --

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

1331: benutils.get_batch_parameters(p_benefit_action_id => l_env.benefit_action_id,
1332: p_rec => l_benmngle_parm_rec
1333: );
1334: --
1335: hr_utility.set_location('ACE l_benmngle_parm_rec.mode_cd = ' || l_benmngle_parm_rec.mode_cd, 9999);
1336: --
1337: l_env.mode_cd := l_benmngle_parm_rec.mode_cd;
1338: --
1339: end if;

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

1339: end if;
1340: --
1341: -- End Bug 5936849
1342:
1343: hr_utility.set_location (' env mode cd '||l_env.mode_cd ,90);
1344: --bug#3495592 - cursor to check already created elig_dpnt record
1345: open c_dpnt_exist (p_per_in_ler_id =>l_per_in_ler.per_in_ler_id,
1346: p_elig_per_id => l_elig_per_id,
1347: p_elig_per_opt_id => l_elig_per_opt_id,

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

1349: fetch c_dpnt_exist into l_dummy;
1350: if c_dpnt_exist%notfound or nvl(l_env.mode_cd,'~') in ('R', 'U') then
1351: if l_env.mode_cd in ('U','R') then
1352: --
1353: hr_utility.set_location ('inside ',11);
1354: /*j
1355: l_elig_dpnt_id := ben_manage_unres_life_events.egd_exists
1356: (p_PER_IN_LER_ID => 1 --l_per_in_ler.per_in_ler_id
1357: ,p_ELIG_PER_ID => 1 --l_elig_per_id

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

1364: ,p_ELIG_PER_ID => 1
1365: ,p_ELIG_PER_OPT_ID => 1
1366: ,p_DPNT_PERSON_ID =>1
1367: );
1368: hr_utility.set_location ('after',12);
1369: end if;
1370: if l_elig_dpnt_id is not null then
1371: --
1372: ben_manage_unres_life_events.update_elig_dpnt

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

1419: );
1420: --
1421: end if;
1422:
1423: hr_utility.set_location ('Dn Elig Y '||l_proc,90);
1424:
1425: --
1426: l_next_row := nvl(g_egd_table.LAST, 0) + 1;
1427: g_egd_table(l_next_row).object_version_number := l_egd_object_version_number;

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

1451: fnd_message.raise_error;
1452: --
1453: else
1454: --
1455: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1456: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1457: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1458: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1459: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);

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

1452: --
1453: else
1454: --
1455: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1456: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1457: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1458: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1459: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);
1460: --

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

1453: else
1454: --
1455: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1456: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1457: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1458: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1459: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);
1460: --
1461: -- 4697057 : If relationship is end-dated, determine end-date as of

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

1454: --
1455: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1456: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1457: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1458: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1459: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);
1460: --
1461: -- 4697057 : If relationship is end-dated, determine end-date as of
1462: -- relationship_end, rather than ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,

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

1455: hr_utility.set_location('l_cvg_end_cd'||l_cvg_end_Cd,10);
1456: hr_utility.set_location('l_cvg_end_rl'||l_cvg_end_rl,10);
1457: hr_utility.set_location('l_contact.date_end '|| l_contact.date_end,10);
1458: hr_utility.set_location('l_lf_evt_ocrd_dt '|| l_lf_evt_ocrd_dt,10);
1459: hr_utility.set_location('get_elig_change_dt '|| ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,10);
1460: --
1461: -- 4697057 : If relationship is end-dated, determine end-date as of
1462: -- relationship_end, rather than ben_evaluate_dpnt_elg_profiles.get_elig_change_dt,
1463: -- since ben_evaluate_dpnt_elg_profiles.set_elig_change_dt is never

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

1486: P_PARAM1 => 'CON_PERSON_ID',
1487: P_PARAM1_VALUE => to_char(l_contact.contact_person_id));
1488: --
1489: end if;
1490: hr_utility.set_location ('Dn Elig N BENDETDT '||l_proc,90);
1491: --
1492: -- According to the cursor, the coverage has started as of the
1493: -- effective date, so the coverage through date should atleast be
1494: -- the coverge start date. If the coverage through date is less

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

1533: --
1534: l_datetrack_mode := hr_api.g_correction;
1535: --
1536: end if;
1537: hr_utility.set_location ('datetrack_mode '||l_datetrack_mode,10);
1538: --
1539: -- Update the eligible dependent record
1540: --
1541: hr_utility.set_location (' Elig N BECD_UECD '||l_proc,90);

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

1537: hr_utility.set_location ('datetrack_mode '||l_datetrack_mode,10);
1538: --
1539: -- Update the eligible dependent record
1540: --
1541: hr_utility.set_location (' Elig N BECD_UECD '||l_proc,90);
1542: hr_utility.set_location (' l_cvg_thru_dt '||l_cvg_end_dt,90);
1543: --
1544: ben_elig_cvrd_dpnt_api.update_elig_cvrd_dpnt
1545: (p_elig_cvrd_dpnt_id => l_elig_cvrd_dpnt_id

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

1538: --
1539: -- Update the eligible dependent record
1540: --
1541: hr_utility.set_location (' Elig N BECD_UECD '||l_proc,90);
1542: hr_utility.set_location (' l_cvg_thru_dt '||l_cvg_end_dt,90);
1543: --
1544: ben_elig_cvrd_dpnt_api.update_elig_cvrd_dpnt
1545: (p_elig_cvrd_dpnt_id => l_elig_cvrd_dpnt_id
1546: ,p_effective_start_date => l_pdp_effective_start_date

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

1560: --
1561: -- RCHASE - update elig_dpnt row when coverage is lost due to ineligibility
1562: if l_egd_rec.dpnt_inelig_flag = 'N' then
1563: --
1564: hr_utility.set_location(' Set Dpnt InElig ' || (l_contact_date_end -1), 10);
1565: hr_utility.set_location(' l_egd_rec.object_version_number ' || l_egd_rec.object_version_number, 10);
1566: --
1567: ben_elig_dpnt_api.update_elig_dpnt(
1568: p_elig_dpnt_id => l_egd_rec.elig_dpnt_id

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

1561: -- RCHASE - update elig_dpnt row when coverage is lost due to ineligibility
1562: if l_egd_rec.dpnt_inelig_flag = 'N' then
1563: --
1564: hr_utility.set_location(' Set Dpnt InElig ' || (l_contact_date_end -1), 10);
1565: hr_utility.set_location(' l_egd_rec.object_version_number ' || l_egd_rec.object_version_number, 10);
1566: --
1567: ben_elig_dpnt_api.update_elig_dpnt(
1568: p_elig_dpnt_id => l_egd_rec.elig_dpnt_id
1569: ,p_object_version_number => l_egd_rec.object_version_number

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

1577: --
1578: -- Update global variable so a benefit assignment can
1579: -- be written.
1580: --
1581: hr_utility.set_location ('dpnt ineligible ',90);
1582: g_dpnt_ineligible := true;
1583: --
1584: end if;
1585: --

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

1584: end if;
1585: --
1586: if l_egd_rec_found then
1587: --
1588: hr_utility.set_location (' Elig N BED_UED '||l_proc,90);
1589: --
1590: ben_elig_dpnt_api.update_perf_elig_dpnt
1591: (p_elig_dpnt_id => l_egd_rec.elig_dpnt_id
1592: ,p_per_in_ler_id => l_per_in_ler.per_in_ler_id

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

1602: );
1603: --
1604: end if;
1605: --
1606: hr_utility.set_location ('Dn Elig N '||l_proc,90);
1607: end if;
1608: end if; -- elig_flag = 'Y'
1609: --
1610: hr_utility.set_location ('End Con Loop '||l_proc,90);

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

1606: hr_utility.set_location ('Dn Elig N '||l_proc,90);
1607: end if;
1608: end if; -- elig_flag = 'Y'
1609: --
1610: hr_utility.set_location ('End Con Loop '||l_proc,90);
1611: end loop;
1612: --
1613: close c_contact;
1614: hr_utility.set_location ('close c_contact '||l_proc,90);

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

1610: hr_utility.set_location ('End Con Loop '||l_proc,90);
1611: end loop;
1612: --
1613: close c_contact;
1614: hr_utility.set_location ('close c_contact '||l_proc,90);
1615: --
1616: end if;
1617: --
1618: if g_debug then

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

1615: --
1616: end if;
1617: --
1618: if g_debug then
1619: hr_utility.set_location ('Leaving '||l_proc,80);
1620: end if;
1621: end;
1622: --
1623: -- Task 131 (pbodla): Elig dependent records are created soon after

Line 1689: g_debug := hr_utility.debug_enabled;

1685: l_sysdate date;
1686: --
1687: begin
1688: --
1689: g_debug := hr_utility.debug_enabled;
1690: --
1691: hr_utility.set_location ('Entering '||l_proc,10);
1692: --
1693: -- Set sysdate to a local

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

1687: begin
1688: --
1689: g_debug := hr_utility.debug_enabled;
1690: --
1691: hr_utility.set_location ('Entering '||l_proc,10);
1692: --
1693: -- Set sysdate to a local
1694: --
1695: l_sysdate := sysdate;

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

1695: l_sysdate := sysdate;
1696: --
1697: -- get the electable choice
1698: --
1699: hr_utility.set_location('Elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,10);
1700: l_chc_id := p_elig_per_elctbl_chc_id;
1701: --
1702: -- Check that current comp object loop EPE row is set
1703: --

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

1756: end if;
1757: --
1758: close c_per_in_ler;
1759: --
1760: hr_utility.set_location ('Updating electable choice '||l_proc,80);
1761: hr_utility.set_location ('g_Process_flag '||g_upd_epe_egd_rec.g_process_flag,80);
1762: --
1763: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1764: --

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

1757: --
1758: close c_per_in_ler;
1759: --
1760: hr_utility.set_location ('Updating electable choice '||l_proc,80);
1761: hr_utility.set_location ('g_Process_flag '||g_upd_epe_egd_rec.g_process_flag,80);
1762: --
1763: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1764: --
1765: hr_utility.set_location ('l_elctbl_flag '||l_elctbl_flag,40);

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

1761: hr_utility.set_location ('g_Process_flag '||g_upd_epe_egd_rec.g_process_flag,80);
1762: --
1763: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1764: --
1765: hr_utility.set_location ('l_elctbl_flag '||l_elctbl_flag,40);
1766: hr_utility.set_location ('pl_id '||l_elctbl_chc.pl_id,50);
1767: hr_utility.set_location ('oipl_id '||l_elctbl_chc.oipl_id,50);
1768: -- Also must update g_code
1769: -- p_allws_dpnt_dsgn_flag will go away and be replaced by

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

1762: --
1763: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1764: --
1765: hr_utility.set_location ('l_elctbl_flag '||l_elctbl_flag,40);
1766: hr_utility.set_location ('pl_id '||l_elctbl_chc.pl_id,50);
1767: hr_utility.set_location ('oipl_id '||l_elctbl_chc.oipl_id,50);
1768: -- Also must update g_code
1769: -- p_allws_dpnt_dsgn_flag will go away and be replaced by
1770: -- 1. Designation code => g_code

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

1763: if g_upd_epe_egd_rec.g_process_flag <> 'Y' then
1764: --
1765: hr_utility.set_location ('l_elctbl_flag '||l_elctbl_flag,40);
1766: hr_utility.set_location ('pl_id '||l_elctbl_chc.pl_id,50);
1767: hr_utility.set_location ('oipl_id '||l_elctbl_chc.oipl_id,50);
1768: -- Also must update g_code
1769: -- p_allws_dpnt_dsgn_flag will go away and be replaced by
1770: -- 1. Designation code => g_code
1771: -- 2. LER chg dep cd => g_ler_chg_dpnt_cvg_cd

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

1772: -- 3. Allows dep cvg flag => g_process_flag
1773: --
1774: -- Update the allows_dpnt_dsgn_flag to 'N'
1775: --
1776: hr_utility.set_location ('BEEPEAPI_UPD '||l_proc,80);
1777: ben_elig_per_elc_chc_api.update_perf_elig_per_elc_chc
1778: (p_elig_per_elctbl_chc_id => l_elctbl_chc.elig_per_elctbl_chc_id,
1779: p_alws_dpnt_dsgn_flag => 'N',
1780: p_object_version_number => l_elctbl_chc.object_version_number,

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

1786: p_request_id => fnd_global.conc_request_id,
1787: p_program_update_date => l_sysdate,
1788: p_dpnt_cvg_strt_dt_cd => g_upd_epe_egd_rec.g_cvg_strt_cd ,
1789: p_dpnt_cvg_strt_dt_rl => g_upd_epe_egd_rec.g_cvg_strt_rl );
1790: hr_utility.set_location ('Dn BEEPEAPI_UPD '||l_proc,80);
1791: --
1792: else
1793: --
1794: -- Update the allows_dpnt_dsgn_flag

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

1796: -- Not sure at this time if we should be storing
1797: -- Codes, dates, rules, or other codes
1798: -- Now writing dsgn_cd and cvg_cd
1799: --
1800: hr_utility.set_location ('BEEPEAPI_UPD 1 '||l_proc,80);
1801: ben_elig_per_elc_chc_api.update_perf_elig_per_elc_chc
1802: (p_elig_per_elctbl_chc_id => l_elctbl_chc.elig_per_elctbl_chc_id,
1803: p_alws_dpnt_dsgn_flag => 'Y',
1804: p_object_version_number => l_elctbl_chc.object_version_number,

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

1811: p_program_update_date => l_sysdate,
1812: p_dpnt_cvg_strt_dt_cd => g_upd_epe_egd_rec.g_cvg_strt_cd ,
1813: p_dpnt_cvg_strt_dt_rl => g_upd_epe_egd_rec.g_cvg_strt_rl );
1814: --
1815: hr_utility.set_location ('Dn BEEPEAPI_UPD 1 '||l_proc,80);
1816: end if;
1817: if g_upd_epe_egd_rec.g_process_flag = 'Y' or g_mnanrd_condition then
1818: hr_utility.set_location ('BEEGDAPI_UPD Loop '||l_proc,80);
1819: --

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

1814: --
1815: hr_utility.set_location ('Dn BEEPEAPI_UPD 1 '||l_proc,80);
1816: end if;
1817: if g_upd_epe_egd_rec.g_process_flag = 'Y' or g_mnanrd_condition then
1818: hr_utility.set_location ('BEEGDAPI_UPD Loop '||l_proc,80);
1819: --
1820: -- Now update all the elig dpnt rows with epe id.
1821: --
1822: if nvl(g_egd_table.last, 0) > 0 then

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

1821: --
1822: if nvl(g_egd_table.last, 0) > 0 then
1823: for l_curr_count in g_egd_table.first..g_egd_table.last
1824: loop
1825: hr_utility.set_location ('St BEEGDAPI_UPD loop '||l_proc,80);
1826: --
1827: -- Update the egd row with electable choice id.
1828: --
1829: ben_elig_dpnt_api.update_perf_elig_dpnt

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

1833: p_object_version_number =>
1834: g_egd_table(l_curr_count).object_version_number,
1835: p_effective_date => p_effective_date,
1836: p_program_update_date => l_sysdate);
1837: hr_utility.set_location ('End BEEGDAPI_UPD loop '||l_proc,80);
1838: --
1839: end loop;
1840: --
1841: hr_utility.set_location ('Dn BEEGDAPI_UPD Loop '||l_proc,80);

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

1837: hr_utility.set_location ('End BEEGDAPI_UPD loop '||l_proc,80);
1838: --
1839: end loop;
1840: --
1841: hr_utility.set_location ('Dn BEEGDAPI_UPD Loop '||l_proc,80);
1842: end if;
1843:
1844: end if;
1845: --

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

1843:
1844: end if;
1845: --
1846: if g_debug then
1847: hr_utility.set_location ('Leaving '||l_proc,80);
1848: end if;
1849: end;
1850: END;