38: ) is
39: l_proc varchar2(72) := g_package||'chk_prtt_enrt_rslt_id';
40: l_api_updating boolean;
41: Begin
42: hr_utility.set_location('Entering:'||l_proc, 5);
43: l_api_updating := ben_pen_shd.api_updating
44: (p_effective_date => p_effective_date,
45: p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
46: p_object_version_number => p_object_version_number);
64: --
65: end if;
66: --
67: end if;
68: hr_utility.set_location('Leaving:'||l_proc, 10);
69: End chk_prtt_enrt_rslt_id;
70: --
71: -- ----------------------------------------------------------------------------
72: -- |------< chk_enrt_ovridn_flag >------|
102: l_proc varchar2(72) := g_package||'chk_enrt_ovridn_flag';
103: l_api_updating boolean;
104: Begin
105: --
106: hr_utility.set_location('Entering:'||l_proc, 5);
107: --
108: l_api_updating := ben_pen_shd.api_updating
109: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
110: p_effective_date => p_effective_date,
133: end if;
134: --
135: end if;
136: --
137: hr_utility.set_location('Leaving:'||l_proc,10);
138: --
139: end chk_enrt_ovridn_flag;
140: --
141: -- ----------------------------------------------------------------------------
172: l_proc varchar2(72) := g_package||'chk_no_lngr_elig_flag';
173: l_api_updating boolean;
174: Begin
175: --
176: hr_utility.set_location('Entering:'||l_proc, 5);
177: --
178: l_api_updating := ben_pen_shd.api_updating
179: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
180: p_effective_date => p_effective_date,
203: end if;
204: --
205: end if;
206: --
207: hr_utility.set_location('Leaving:'||l_proc,10);
208: --
209: end chk_no_lngr_elig_flag;
210: --
211: --
244: l_api_updating boolean;
245: --
246: Begin
247: --
248: hr_utility.set_location('Entering:'||l_proc, 5);
249: --
250: l_api_updating := ben_pen_shd.api_updating
251: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
252: p_effective_date => p_effective_date,
273: fnd_message.raise_error;
274: end if;
275: --
276: end if;
277: hr_utility.set_location('Leaving:'||l_proc,10);
278: end chk_enrt_mthd_cd;
279: --
280: -- ----------------------------------------------------------------------------
281: -- |------< chk_uom >------|
316: from fnd_currencies_tl
317: where currency_code = p_uom ;
318: Begin
319: --
320: hr_utility.set_location('Entering:'||l_proc, 5);
321: --
322: l_api_updating := ben_pen_shd.api_updating
323: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
324: p_effective_date => p_effective_date,
347: close c1;
348: --
349: end if;
350: --
351: hr_utility.set_location('Leaving:'||l_proc,10);
352: --
353: end chk_uom ;
354: --
355: -- ----------------------------------------------------------------------------
387: l_api_updating boolean;
388: --
389: Begin
390: --
391: hr_utility.set_location('Entering:'||l_proc, 5);
392: --
393: l_api_updating := ben_pen_shd.api_updating
394: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
395: p_effective_date => p_effective_date,
417: end if;
418: --
419: end if;
420: --
421: hr_utility.set_location('Leaving:'||l_proc,10);
422: --
423: end chk_prtt_is_cvrd_flag;
424: --
425: -- ----------------------------------------------------------------------------
457: l_api_updating boolean;
458: --
459: Begin
460: --
461: hr_utility.set_location('Entering:'||l_proc, 5);
462: --
463: l_api_updating := ben_pen_shd.api_updating
464: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
465: p_effective_date => p_effective_date,
487: end if;
488: --
489: end if;
490: --
491: hr_utility.set_location('Leaving:'||l_proc,10);
492: --
493: end chk_sspndd_flag;
494: --
495: -- ----------------------------------------------------------------------------
527: l_api_updating boolean;
528: --
529: Begin
530: --
531: hr_utility.set_location('Entering:'||l_proc, 5);
532: --
533: l_api_updating := ben_pen_shd.api_updating
534: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
535: p_effective_date => p_effective_date,
557: end if;
558: --
559: end if;
560: --
561: hr_utility.set_location('Leaving:'||l_proc,10);
562: --
563: end chk_comp_lvl_cd;
564: --
565: -- --------------------------------------------------------------------------
597: l_api_updating boolean;
598: --
599: Begin
600: --
601: hr_utility.set_location('Entering:'||l_proc, 5);
602: --
603: l_api_updating := ben_pen_shd.api_updating
604: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
605: p_effective_date => p_effective_date,
625: fnd_message.set_token('TYPE','BEN_NNMNTRY_UOM');
626: fnd_message.raise_error;
627: end if;
628: end if;
629: hr_utility.set_location('Leaving:'||l_proc,10);
630: --
631: end chk_bnft_nnmntry_uom;
632: --
633: -- --------------------------------------------------------------------------
665: l_api_updating boolean;
666: --
667: Begin
668: --
669: hr_utility.set_location('Entering:'||l_proc, 5);
670: --
671: l_api_updating := ben_pen_shd.api_updating
672: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
673: p_effective_date => p_effective_date,
694: fnd_message.raise_error;
695: end if;
696: --
697: end if;
698: hr_utility.set_location('Leaving:'||l_proc,10);
699:
700: end chk_bnft_typ_cd;
701: --
702: -- --------------------------------------------------------------------------
734: l_api_updating boolean;
735: --
736: Begin
737: --
738: hr_utility.set_location('Entering:'||l_proc, 5);
739: --
740: l_api_updating := ben_pen_shd.api_updating
741: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
742: p_effective_date => p_effective_date,
763: fnd_message.raise_error;
764: end if;
765: --
766: end if;
767: hr_utility.set_location('Leaving:'||l_proc,10);
768:
769: end chk_prtt_enrt_rslt_stat_cd;
770: --
771: --
805: l_api_updating boolean;
806: --
807: Begin
808: --
809: hr_utility.set_location('Entering:'||l_proc, 5);
810: --
811: l_api_updating := ben_pen_shd.api_updating
812: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
813: p_effective_date => p_effective_date,
832: fnd_message.set_token('TYPE','BEN_OVRID_RSN');
833: fnd_message.raise_error;
834: end if;
835: end if;
836: hr_utility.set_location('Leaving:'||l_proc,10);
837: end chk_enrt_ovrid_rsn_cd;
838: --
839: -- ---------------------------------------------------------------------------
840: -- |------------------------< crt_ordr_warning >----------------------------|
1019: l_message fnd_new_messages.message_name%TYPE := 'BEN_92430_CRT_ORD_WARNING';
1020: l_cobra_pgm BOOLEAN := FALSE;
1021: --
1022: BEGIN
1023: hr_utility.set_location ('Entering:' || l_proc, 5);
1024: --
1025: hr_utility.set_location ('Checking court order at PEN level', 12);
1026: --
1027: ben_cobj_cache.get_pl_dets (p_business_group_id => p_business_group_id,
1021: --
1022: BEGIN
1023: hr_utility.set_location ('Entering:' || l_proc, 5);
1024: --
1025: hr_utility.set_location ('Checking court order at PEN level', 12);
1026: --
1027: ben_cobj_cache.get_pl_dets (p_business_group_id => p_business_group_id,
1028: p_effective_date => p_effective_date,
1029: p_pl_id => p_pl_id,
1066: --
1067: --
1068: -- Retrieve designation code
1069: --
1070: hr_utility.set_location ('Level = ' || l_level, 40);
1071:
1072: IF l_level = 'PGM'
1073: THEN
1074: --
1096: l_code := NULL;
1097: --
1098: END IF;
1099: --
1100: hr_utility.set_location ('dsgn code = ' || l_code, 40);
1101: --
1102: IF l_code IS NOT NULL AND
1103: NOT l_cobra_pgm
1104: THEN
1103: NOT l_cobra_pgm
1104: THEN
1105: --
1106: /*
1107: hr_utility.set_location ('ACE p_prtt_enrt_rslt_id = ' || p_prtt_enrt_rslt_id, 9999 );
1108: hr_utility.set_location ('ACE p_effective_date = ' || p_effective_date, 9999 );
1109: hr_utility.set_location ('ACE p_business_group_id = ' || p_business_group_id, 9999 );
1110: hr_utility.set_location ('ACE p_enrt_cvg_strt_dt = ' || p_enrt_cvg_strt_dt, 9999 );
1111: */
1104: THEN
1105: --
1106: /*
1107: hr_utility.set_location ('ACE p_prtt_enrt_rslt_id = ' || p_prtt_enrt_rslt_id, 9999 );
1108: hr_utility.set_location ('ACE p_effective_date = ' || p_effective_date, 9999 );
1109: hr_utility.set_location ('ACE p_business_group_id = ' || p_business_group_id, 9999 );
1110: hr_utility.set_location ('ACE p_enrt_cvg_strt_dt = ' || p_enrt_cvg_strt_dt, 9999 );
1111: */
1112: --
1105: --
1106: /*
1107: hr_utility.set_location ('ACE p_prtt_enrt_rslt_id = ' || p_prtt_enrt_rslt_id, 9999 );
1108: hr_utility.set_location ('ACE p_effective_date = ' || p_effective_date, 9999 );
1109: hr_utility.set_location ('ACE p_business_group_id = ' || p_business_group_id, 9999 );
1110: hr_utility.set_location ('ACE p_enrt_cvg_strt_dt = ' || p_enrt_cvg_strt_dt, 9999 );
1111: */
1112: --
1113: OPEN c_lf_evt_ocrd_dt;
1106: /*
1107: hr_utility.set_location ('ACE p_prtt_enrt_rslt_id = ' || p_prtt_enrt_rslt_id, 9999 );
1108: hr_utility.set_location ('ACE p_effective_date = ' || p_effective_date, 9999 );
1109: hr_utility.set_location ('ACE p_business_group_id = ' || p_business_group_id, 9999 );
1110: hr_utility.set_location ('ACE p_enrt_cvg_strt_dt = ' || p_enrt_cvg_strt_dt, 9999 );
1111: */
1112: --
1113: OPEN c_lf_evt_ocrd_dt;
1114: --
1127: --
1128: EXIT WHEN c_crt_ordr%NOTFOUND;
1129: --
1130: /*
1131: hr_utility.set_location ('ACE l_name = ' || l_name, 9999);
1132: hr_utility.set_location ('ACE l_dpnt_id = ' || l_dpnt_id, 9999);
1133: hr_utility.set_location ('ACE l_benefit_name = ' || l_benefit_name, 9999);
1134: hr_utility.set_location ('ACE l_lf_evt_ocrd_dt = ' || l_lf_evt_ocrd_dt, 9999 );
1135: hr_utility.set_location ('ACE l_crt_ordr_typ_cd = ' || l_crt_ordr_typ_cd, 9999 );
1128: EXIT WHEN c_crt_ordr%NOTFOUND;
1129: --
1130: /*
1131: hr_utility.set_location ('ACE l_name = ' || l_name, 9999);
1132: hr_utility.set_location ('ACE l_dpnt_id = ' || l_dpnt_id, 9999);
1133: hr_utility.set_location ('ACE l_benefit_name = ' || l_benefit_name, 9999);
1134: hr_utility.set_location ('ACE l_lf_evt_ocrd_dt = ' || l_lf_evt_ocrd_dt, 9999 );
1135: hr_utility.set_location ('ACE l_crt_ordr_typ_cd = ' || l_crt_ordr_typ_cd, 9999 );
1136: */
1129: --
1130: /*
1131: hr_utility.set_location ('ACE l_name = ' || l_name, 9999);
1132: hr_utility.set_location ('ACE l_dpnt_id = ' || l_dpnt_id, 9999);
1133: hr_utility.set_location ('ACE l_benefit_name = ' || l_benefit_name, 9999);
1134: hr_utility.set_location ('ACE l_lf_evt_ocrd_dt = ' || l_lf_evt_ocrd_dt, 9999 );
1135: hr_utility.set_location ('ACE l_crt_ordr_typ_cd = ' || l_crt_ordr_typ_cd, 9999 );
1136: */
1137: hr_utility.set_location('Found Court Order', 9999);
1130: /*
1131: hr_utility.set_location ('ACE l_name = ' || l_name, 9999);
1132: hr_utility.set_location ('ACE l_dpnt_id = ' || l_dpnt_id, 9999);
1133: hr_utility.set_location ('ACE l_benefit_name = ' || l_benefit_name, 9999);
1134: hr_utility.set_location ('ACE l_lf_evt_ocrd_dt = ' || l_lf_evt_ocrd_dt, 9999 );
1135: hr_utility.set_location ('ACE l_crt_ordr_typ_cd = ' || l_crt_ordr_typ_cd, 9999 );
1136: */
1137: hr_utility.set_location('Found Court Order', 9999);
1138: --
1131: hr_utility.set_location ('ACE l_name = ' || l_name, 9999);
1132: hr_utility.set_location ('ACE l_dpnt_id = ' || l_dpnt_id, 9999);
1133: hr_utility.set_location ('ACE l_benefit_name = ' || l_benefit_name, 9999);
1134: hr_utility.set_location ('ACE l_lf_evt_ocrd_dt = ' || l_lf_evt_ocrd_dt, 9999 );
1135: hr_utility.set_location ('ACE l_crt_ordr_typ_cd = ' || l_crt_ordr_typ_cd, 9999 );
1136: */
1137: hr_utility.set_location('Found Court Order', 9999);
1138: --
1139: OPEN c_elig_dpnt;
1133: hr_utility.set_location ('ACE l_benefit_name = ' || l_benefit_name, 9999);
1134: hr_utility.set_location ('ACE l_lf_evt_ocrd_dt = ' || l_lf_evt_ocrd_dt, 9999 );
1135: hr_utility.set_location ('ACE l_crt_ordr_typ_cd = ' || l_crt_ordr_typ_cd, 9999 );
1136: */
1137: hr_utility.set_location('Found Court Order', 9999);
1138: --
1139: OPEN c_elig_dpnt;
1140: --
1141: FETCH c_elig_dpnt INTO l_dummy;
1142: --
1143: IF c_elig_dpnt%NOTFOUND
1144: THEN
1145: --
1146: hr_utility.set_location ('C_ELIG_DPNT Not Found', 9999);
1147: --
1148: l_crt_ordr_meaning := hr_general.decode_lookup
1149: (p_lookup_type => 'BEN_CRT_ORDR_TYP',
1150: p_lookup_code => l_crt_ordr_typ_cd
1170: END IF;
1171: --
1172: END IF;
1173: --
1174: hr_utility.set_location ('Leaving:' || l_proc, 10);
1175: --
1176: END crt_ordr_warning;
1177: --
1178: --
1205: l_jurisdiction_code varchar2(30);
1206: l_elig_per_elctbl_chc_id number;
1207: -- 3427367
1208: begin
1209: hr_utility.set_location ('Entering '||l_proc,10);
1210: --
1211: -- Call formula initialise routine
1212: --
1213: -- 3427367
1237: --
1238: l_return := to_number(l_outputs(l_outputs.first).value);
1239:
1240: return l_return;
1241: hr_utility.set_location ('Leaving '||l_proc,50);
1242: exception
1243: when others then
1244: hr_utility.set_location ('Fail in '||l_proc|| ' step in '||
1245: to_char(l_step),999);
1240: return l_return;
1241: hr_utility.set_location ('Leaving '||l_proc,50);
1242: exception
1243: when others then
1244: hr_utility.set_location ('Fail in '||l_proc|| ' step in '||
1245: to_char(l_step),999);
1246: raise;
1247: end;
1248: --
1277: l_jurisdiction_code varchar2(30);
1278: l_elig_per_elctbl_chc_id number;
1279: -- 3427367
1280: begin
1281: hr_utility.set_location ('Entering '||l_proc,70);
1282: --
1283: -- Call formula initialise routine
1284: --
1285: -- 3427367
1309: --
1310: l_return := to_number(l_outputs(l_outputs.first).value);
1311:
1312: return l_return;
1313: hr_utility.set_location ('Leaving '||l_proc,70);
1314: exception
1315: when others then
1316: hr_utility.set_location ('Fail in '||l_proc || ' step in ' ||
1317: to_char(l_step),999);
1312: return l_return;
1313: hr_utility.set_location ('Leaving '||l_proc,70);
1314: exception
1315: when others then
1316: hr_utility.set_location ('Fail in '||l_proc || ' step in ' ||
1317: to_char(l_step),999);
1318: raise;
1319: end;
1320: --
1334: l_max_opts number := 0; -- number(8) := 0; bug 2649163
1335: l_tot_amt_no_interim number := 0;
1336: l_max_amt_no_interim number := 0;
1337: begin
1338: hr_utility.set_location('Entering get_opts_and_cvg ',1234);
1339: hr_utility.set_location(' p_enrt_cnt '||p_enrt_cnt,1234);
1340: for i in 1..p_enrt_cnt loop
1341: l_tot_amt := 0;
1342: l_tot_opts := 0;
1335: l_tot_amt_no_interim number := 0;
1336: l_max_amt_no_interim number := 0;
1337: begin
1338: hr_utility.set_location('Entering get_opts_and_cvg ',1234);
1339: hr_utility.set_location(' p_enrt_cnt '||p_enrt_cnt,1234);
1340: for i in 1..p_enrt_cnt loop
1341: l_tot_amt := 0;
1342: l_tot_opts := 0;
1343: l_tot_amt_no_interim := 0 ;
1345: if (p_enrt_tbl(i).enrt_cvg_strt_dt between
1346: p_enrt_tbl(j).enrt_cvg_strt_dt and
1347: nvl(p_enrt_tbl(j).enrt_cvg_thru_dt,hr_api.g_eot)
1348: ) then
1349: hr_utility.set_location(' j '||j,1234);
1350: if (p_enrt_tbl(j).calc_interm = 1) then
1351: if (nvl(p_enrt_tbl(j).SSPNDD_FLAG, 'X') <> 'Y') then
1352: hr_utility.set_location(' l_tot_amt before '||l_tot_amt,1234);
1353: l_tot_amt := l_tot_amt+nvl(p_enrt_tbl(j).bnft_amt,0);
1348: ) then
1349: hr_utility.set_location(' j '||j,1234);
1350: if (p_enrt_tbl(j).calc_interm = 1) then
1351: if (nvl(p_enrt_tbl(j).SSPNDD_FLAG, 'X') <> 'Y') then
1352: hr_utility.set_location(' l_tot_amt before '||l_tot_amt,1234);
1353: l_tot_amt := l_tot_amt+nvl(p_enrt_tbl(j).bnft_amt,0);
1354: hr_utility.set_location(' l_tot_amt after '||l_tot_amt,1234);
1355: end if;
1356: else
1350: if (p_enrt_tbl(j).calc_interm = 1) then
1351: if (nvl(p_enrt_tbl(j).SSPNDD_FLAG, 'X') <> 'Y') then
1352: hr_utility.set_location(' l_tot_amt before '||l_tot_amt,1234);
1353: l_tot_amt := l_tot_amt+nvl(p_enrt_tbl(j).bnft_amt,0);
1354: hr_utility.set_location(' l_tot_amt after '||l_tot_amt,1234);
1355: end if;
1356: else
1357: if p_enrt_tbl(j).interim_flag = 'N' then
1358: hr_utility.set_location(' interim_flag before '||l_tot_amt,1234);
1354: hr_utility.set_location(' l_tot_amt after '||l_tot_amt,1234);
1355: end if;
1356: else
1357: if p_enrt_tbl(j).interim_flag = 'N' then
1358: hr_utility.set_location(' interim_flag before '||l_tot_amt,1234);
1359: l_tot_amt := l_tot_amt + nvl(p_enrt_tbl(j).bnft_amt,0);
1360: hr_utility.set_location(' interim_flag after '||l_tot_amt,1234);
1361: end if;
1362: end if;
1356: else
1357: if p_enrt_tbl(j).interim_flag = 'N' then
1358: hr_utility.set_location(' interim_flag before '||l_tot_amt,1234);
1359: l_tot_amt := l_tot_amt + nvl(p_enrt_tbl(j).bnft_amt,0);
1360: hr_utility.set_location(' interim_flag after '||l_tot_amt,1234);
1361: end if;
1362: end if;
1363: if (p_enrt_tbl(j).interim_flag = 'N') then
1364: l_tot_opts := l_tot_opts + 1;
1365: l_tot_amt_no_interim:=l_tot_amt_no_interim+nvl(p_enrt_tbl(j).bnft_amt,0);
1366: end if;
1367: end if;
1368: end loop;
1369: hr_utility.set_location(' before l_max_amt '||l_max_amt,1234);
1370: l_max_amt := greatest(l_tot_amt, l_max_amt);
1371: l_max_opts := greatest(l_max_opts,l_tot_opts);
1372: l_max_amt_no_interim := greatest(l_max_amt_no_interim,l_tot_amt_no_interim);
1373: hr_utility.set_location(' after l_max_amt '||l_max_amt,1234);
1369: hr_utility.set_location(' before l_max_amt '||l_max_amt,1234);
1370: l_max_amt := greatest(l_tot_amt, l_max_amt);
1371: l_max_opts := greatest(l_max_opts,l_tot_opts);
1372: l_max_amt_no_interim := greatest(l_max_amt_no_interim,l_tot_amt_no_interim);
1373: hr_utility.set_location(' after l_max_amt '||l_max_amt,1234);
1374: end loop;
1375: hr_utility.set_location(' before p_tot_amt '||p_tot_amt,1234);
1376: p_tot_amt := l_max_amt;
1377: p_tot_opts := l_max_opts;
1371: l_max_opts := greatest(l_max_opts,l_tot_opts);
1372: l_max_amt_no_interim := greatest(l_max_amt_no_interim,l_tot_amt_no_interim);
1373: hr_utility.set_location(' after l_max_amt '||l_max_amt,1234);
1374: end loop;
1375: hr_utility.set_location(' before p_tot_amt '||p_tot_amt,1234);
1376: p_tot_amt := l_max_amt;
1377: p_tot_opts := l_max_opts;
1378: --p_tot_amt_no_interim := l_tot_amt_no_interim;
1379: hr_utility.set_location(' after p_tot_amt '||p_tot_amt,1234);
1375: hr_utility.set_location(' before p_tot_amt '||p_tot_amt,1234);
1376: p_tot_amt := l_max_amt;
1377: p_tot_opts := l_max_opts;
1378: --p_tot_amt_no_interim := l_tot_amt_no_interim;
1379: hr_utility.set_location(' after p_tot_amt '||p_tot_amt,1234);
1380: end get_opts_and_cvg;
1381: --
1382: -- ----------------------------------------------------------------------------
1383: -- |--------------------------
1406: p_dpnt_cvd_by_othr_apls_flag := 'N';
1407: --
1408: for i in 1..p_enrt_cnt loop
1409: /*
1410: hr_utility.set_location('i INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1411: hr_utility.set_location('i INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1412: hr_utility.set_location('i INSIDE SSPNDD_FLAG'||p_enrt_tbl(i).SSPNDD_FLAG,111);
1413: hr_utility.set_location('i INSIDE Bnft I'||p_enrt_tbl(i).bnft_amt,111);
1414: */
1407: --
1408: for i in 1..p_enrt_cnt loop
1409: /*
1410: hr_utility.set_location('i INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1411: hr_utility.set_location('i INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1412: hr_utility.set_location('i INSIDE SSPNDD_FLAG'||p_enrt_tbl(i).SSPNDD_FLAG,111);
1413: hr_utility.set_location('i INSIDE Bnft I'||p_enrt_tbl(i).bnft_amt,111);
1414: */
1415: l_tot_amt := 0;
1408: for i in 1..p_enrt_cnt loop
1409: /*
1410: hr_utility.set_location('i INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1411: hr_utility.set_location('i INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1412: hr_utility.set_location('i INSIDE SSPNDD_FLAG'||p_enrt_tbl(i).SSPNDD_FLAG,111);
1413: hr_utility.set_location('i INSIDE Bnft I'||p_enrt_tbl(i).bnft_amt,111);
1414: */
1415: l_tot_amt := 0;
1416: l_tot_pls := 0;
1409: /*
1410: hr_utility.set_location('i INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1411: hr_utility.set_location('i INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1412: hr_utility.set_location('i INSIDE SSPNDD_FLAG'||p_enrt_tbl(i).SSPNDD_FLAG,111);
1413: hr_utility.set_location('i INSIDE Bnft I'||p_enrt_tbl(i).bnft_amt,111);
1414: */
1415: l_tot_amt := 0;
1416: l_tot_pls := 0;
1417: l_tot_amt_no_interim := 0 ;
1418: --l_pl_tbl.delete;
1419: --l_cnt := 0;
1420: for j in 1..p_enrt_cnt loop
1421: --
1422: hr_utility.set_location('J INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1423: hr_utility.set_location('J INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1424: hr_utility.set_location('J INSIDE SSPNDD_FLAG'||p_enrt_tbl(j).SSPNDD_FLAG,111);
1425: hr_utility.set_location('i INSIDE Bnft J '||p_enrt_tbl(j).bnft_amt,111);
1426: hr_utility.set_location('i INSIDE interim J'||p_enrt_tbl(j).interim_flag,111);
1419: --l_cnt := 0;
1420: for j in 1..p_enrt_cnt loop
1421: --
1422: hr_utility.set_location('J INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1423: hr_utility.set_location('J INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1424: hr_utility.set_location('J INSIDE SSPNDD_FLAG'||p_enrt_tbl(j).SSPNDD_FLAG,111);
1425: hr_utility.set_location('i INSIDE Bnft J '||p_enrt_tbl(j).bnft_amt,111);
1426: hr_utility.set_location('i INSIDE interim J'||p_enrt_tbl(j).interim_flag,111);
1427: --
1420: for j in 1..p_enrt_cnt loop
1421: --
1422: hr_utility.set_location('J INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1423: hr_utility.set_location('J INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1424: hr_utility.set_location('J INSIDE SSPNDD_FLAG'||p_enrt_tbl(j).SSPNDD_FLAG,111);
1425: hr_utility.set_location('i INSIDE Bnft J '||p_enrt_tbl(j).bnft_amt,111);
1426: hr_utility.set_location('i INSIDE interim J'||p_enrt_tbl(j).interim_flag,111);
1427: --
1428: if (p_enrt_tbl(i).enrt_cvg_strt_dt between
1421: --
1422: hr_utility.set_location('J INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1423: hr_utility.set_location('J INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1424: hr_utility.set_location('J INSIDE SSPNDD_FLAG'||p_enrt_tbl(j).SSPNDD_FLAG,111);
1425: hr_utility.set_location('i INSIDE Bnft J '||p_enrt_tbl(j).bnft_amt,111);
1426: hr_utility.set_location('i INSIDE interim J'||p_enrt_tbl(j).interim_flag,111);
1427: --
1428: if (p_enrt_tbl(i).enrt_cvg_strt_dt between
1429: p_enrt_tbl(j).enrt_cvg_strt_dt and
1422: hr_utility.set_location('J INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1423: hr_utility.set_location('J INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1424: hr_utility.set_location('J INSIDE SSPNDD_FLAG'||p_enrt_tbl(j).SSPNDD_FLAG,111);
1425: hr_utility.set_location('i INSIDE Bnft J '||p_enrt_tbl(j).bnft_amt,111);
1426: hr_utility.set_location('i INSIDE interim J'||p_enrt_tbl(j).interim_flag,111);
1427: --
1428: if (p_enrt_tbl(i).enrt_cvg_strt_dt between
1429: p_enrt_tbl(j).enrt_cvg_strt_dt and
1430: nvl(p_enrt_tbl(j).enrt_cvg_thru_dt,hr_api.g_eot)
1430: nvl(p_enrt_tbl(j).enrt_cvg_thru_dt,hr_api.g_eot)
1431: ) then
1432: --
1433: /*
1434: hr_utility.set_location('INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1435: hr_utility.set_location('INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1436: hr_utility.set_location('INSIDE SSPNDD_FLAG'||p_enrt_tbl(j).SSPNDD_FLAG,111);
1437: hr_utility.set_location('INSIDE calc_inter'||p_enrt_tbl(j).calc_interm,111);
1438: */
1431: ) then
1432: --
1433: /*
1434: hr_utility.set_location('INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1435: hr_utility.set_location('INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1436: hr_utility.set_location('INSIDE SSPNDD_FLAG'||p_enrt_tbl(j).SSPNDD_FLAG,111);
1437: hr_utility.set_location('INSIDE calc_inter'||p_enrt_tbl(j).calc_interm,111);
1438: */
1439: --
1432: --
1433: /*
1434: hr_utility.set_location('INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1435: hr_utility.set_location('INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1436: hr_utility.set_location('INSIDE SSPNDD_FLAG'||p_enrt_tbl(j).SSPNDD_FLAG,111);
1437: hr_utility.set_location('INSIDE calc_inter'||p_enrt_tbl(j).calc_interm,111);
1438: */
1439: --
1440: if (p_enrt_tbl(j).calc_interm = 1) then
1433: /*
1434: hr_utility.set_location('INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1435: hr_utility.set_location('INSIDE p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1436: hr_utility.set_location('INSIDE SSPNDD_FLAG'||p_enrt_tbl(j).SSPNDD_FLAG,111);
1437: hr_utility.set_location('INSIDE calc_inter'||p_enrt_tbl(j).calc_interm,111);
1438: */
1439: --
1440: if (p_enrt_tbl(j).calc_interm = 1) then
1441: if (nvl(p_enrt_tbl(j).SSPNDD_FLAG, 'X') <> 'Y') then
1457: -- end loop;
1458: -- if (l_not_found) then
1459: --
1460: /*
1461: hr_utility.set_location('p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1462: hr_utility.set_location('p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1463: hr_utility.set_location('enrt_tbl(j).bnft_amt'||nvl(p_enrt_tbl(j).bnft_amt,0),111);
1464: hr_utility.set_location('l_tot_amt_no_interim'||l_tot_amt_no_interim,111);
1465: */
1458: -- if (l_not_found) then
1459: --
1460: /*
1461: hr_utility.set_location('p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1462: hr_utility.set_location('p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1463: hr_utility.set_location('enrt_tbl(j).bnft_amt'||nvl(p_enrt_tbl(j).bnft_amt,0),111);
1464: hr_utility.set_location('l_tot_amt_no_interim'||l_tot_amt_no_interim,111);
1465: */
1466: --
1459: --
1460: /*
1461: hr_utility.set_location('p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1462: hr_utility.set_location('p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1463: hr_utility.set_location('enrt_tbl(j).bnft_amt'||nvl(p_enrt_tbl(j).bnft_amt,0),111);
1464: hr_utility.set_location('l_tot_amt_no_interim'||l_tot_amt_no_interim,111);
1465: */
1466: --
1467: l_tot_pls := l_tot_pls + 1;
1460: /*
1461: hr_utility.set_location('p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1462: hr_utility.set_location('p_enrt_tbl(i).pl_id'||p_enrt_tbl(i).pl_id,111);
1463: hr_utility.set_location('enrt_tbl(j).bnft_amt'||nvl(p_enrt_tbl(j).bnft_amt,0),111);
1464: hr_utility.set_location('l_tot_amt_no_interim'||l_tot_amt_no_interim,111);
1465: */
1466: --
1467: l_tot_pls := l_tot_pls + 1;
1468: l_tot_amt_no_interim:=l_tot_amt_no_interim+nvl(p_enrt_tbl(j).bnft_amt,0);
1679: -- Store all comp. object into PL/SQL table g_enrt_tbl, and all the
1680: -- interim records prtt_enrt_rslt_id into l_interim_tbl PL/SQL table.
1681: --
1682: l_step := 5;
1683: hr_utility.set_location('Entering:'||l_proc,5);
1684: --
1685: -- Initialize globle variable.
1686: --
1687: l_interim_tbl.delete;
2102: l_enrt_tbl(l_enrt_cnt) := g_enrt_tbl(j);
2103: end if;
2104: end loop;
2105: If (l_enrt_cnt > 0) then
2106: hr_utility.set_location('Before g_pl_tbl(i).tot_cvg_amt '||g_pl_tbl(i).tot_cvg_amt,1234);
2107: get_opts_and_cvg
2108: (p_enrt_tbl => l_enrt_tbl
2109: ,p_enrt_cnt => l_enrt_cnt
2110: ,p_tot_amt => g_pl_tbl(i).tot_cvg_amt
2109: ,p_enrt_cnt => l_enrt_cnt
2110: ,p_tot_amt => g_pl_tbl(i).tot_cvg_amt
2111: ,p_tot_opts => g_pl_tbl(i).tot_opt_enrld
2112: );
2113: hr_utility.set_location('After g_pl_tbl(i).tot_cvg_amt '||g_pl_tbl(i).tot_cvg_amt,1234);
2114: end if;
2115: --
2116: end loop;
2117: --
2143: ,p_tot_pls => g_ptip_tbl(i).tot_pl_enrld
2144: ,p_dpnt_cvd_by_othr_apls_flag => g_ptip_tbl(i).dpnt_cvd_by_othr_apls_flag
2145: ,p_tot_amt_no_interim => g_ptip_tbl(i).tot_cvg_amt_no_interim
2146: );
2147: hr_utility.set_location('After get_pls_and_cvg 1'||g_ptip_tbl(i).tot_cvg_amt,111);
2148: hr_utility.set_location('After tot_cvg_no_interim'||g_ptip_tbl(i).tot_cvg_amt_no_interim,111);
2149:
2150: End if;
2151: end loop;
2144: ,p_dpnt_cvd_by_othr_apls_flag => g_ptip_tbl(i).dpnt_cvd_by_othr_apls_flag
2145: ,p_tot_amt_no_interim => g_ptip_tbl(i).tot_cvg_amt_no_interim
2146: );
2147: hr_utility.set_location('After get_pls_and_cvg 1'||g_ptip_tbl(i).tot_cvg_amt,111);
2148: hr_utility.set_location('After tot_cvg_no_interim'||g_ptip_tbl(i).tot_cvg_amt_no_interim,111);
2149:
2150: End if;
2151: end loop;
2152: --
2205: ,p_tot_pls => g_pl_typ_tbl(i).tot_pl_enrld
2206: ,p_dpnt_cvd_by_othr_apls_flag => g_pl_typ_tbl(i).dpnt_cvd_by_othr_apls_flag
2207: ,p_tot_amt_no_interim => g_pl_typ_tbl(i).tot_cvg_amt_no_interim
2208: );
2209: hr_utility.set_location('AfterPLTYP get_pls_and_cvg 2'||g_pl_typ_tbl(i).tot_cvg_amt,111);
2210: hr_utility.set_location('After tot_cvg_no_interim'||g_pl_typ_tbl(i).tot_cvg_amt_no_interim,111);
2211: End if;
2212: end loop;
2213: --
2206: ,p_dpnt_cvd_by_othr_apls_flag => g_pl_typ_tbl(i).dpnt_cvd_by_othr_apls_flag
2207: ,p_tot_amt_no_interim => g_pl_typ_tbl(i).tot_cvg_amt_no_interim
2208: );
2209: hr_utility.set_location('AfterPLTYP get_pls_and_cvg 2'||g_pl_typ_tbl(i).tot_cvg_amt,111);
2210: hr_utility.set_location('After tot_cvg_no_interim'||g_pl_typ_tbl(i).tot_cvg_amt_no_interim,111);
2211: End if;
2212: end loop;
2213: --
2214: l_step := 100;
2212: end loop;
2213: --
2214: l_step := 100;
2215: --
2216: hr_utility.set_location('Leaving:'||l_proc,500);
2217: Exception
2218: when others then
2219: hr_utility.set_location('Fail in '|| l_proc|| ' at step ' ||
2220: to_char(l_step), 999);
2215: --
2216: hr_utility.set_location('Leaving:'||l_proc,500);
2217: Exception
2218: when others then
2219: hr_utility.set_location('Fail in '|| l_proc|| ' at step ' ||
2220: to_char(l_step), 999);
2221: if g_c_pgm%isopen then
2222: close g_c_pgm;
2223: end if;
2371:
2372: --
2373: Begin
2374: --
2375: hr_utility.set_location('Entering - '||l_proc, 5);
2376: --
2377: --
2378: if p_oipl_post_edit_rl is not null or
2379: p_pl_post_edit_rl is not null or
2397: end if;
2398: --
2399: end if;
2400:
2401: hr_utility.set_location('l_state.assignment_id '|| l_state.assignment_id , 5);
2402:
2403: if p_oipl_post_edit_rl is not null then
2404: --
2405: l_rule_returns :=
2488: p_proc => l_proc,
2489: p_rule_id => p_ptip_post_edit_rl);
2490: end if;
2491: --
2492: hr_utility.set_location('Leaving - '||l_proc, 10);
2493: --
2494: End Chk_post_elcn_rl;
2495: --
2496: -- ----------------------------------------------------------------------------
2538: ;
2539: l_dump number(15);
2540: l_proc varchar2(80) := g_package || '.chk_mndtry_comp_obj';
2541: Begin
2542: hr_utility.set_location('Entering - '||l_proc, 5);
2543:
2544: -- Check that mandatory options are enrolled in.
2545: -- These are options that you MUST be enrolled in, IF you are
2546: -- enrolled in the plan at all.
2551: fnd_message.set_name('BEN', 'BEN_91962_MNDTRY_OBJ_NOT_ENRLD');
2552: fnd_message.raise_error;
2553: End if;
2554: close c1;
2555: hr_utility.set_location('Leaving - '||l_proc, 10);
2556: End;
2557: --
2558: --
2559: -- ----------------------------------------------------------------------------
2613: e_no_pt exception;
2614: e_no_pen exception;
2615: l_proc varchar2(80) := g_package||'.manage_per_type_usages';
2616: begin
2617: hr_utility.set_location('Entering '||l_proc,10);
2618: -- Get participant person type id
2619: for r_pt in c_pt loop
2620: l_person_type_id := r_pt.person_type_id;
2621: end loop;
2642: for r_ptu in c_ptu loop
2643: l_ptu(l_ptu.count+1) := r_ptu;
2644: end loop;
2645:
2646: hr_utility.set_location('counts prn : '||l_pen.count || ' PTU :' || l_ptu.count,90);
2647: if l_pen.count = 0 then
2648: -- if there is no enrollment result,
2649: -- 2899702 check for per type usage if both 0
2650: -- no need to process person type usage records
2661: ,p_effective_start_date => l_esd
2662: ,p_effective_end_date => l_eed);
2663: end loop; -- zap person type usage loop
2664: end if ;
2665: hr_utility.set_location('Leaving betwen '||l_proc,90);
2666:
2667: return;
2668: end if;
2669:
2725: ,p_effective_end_date => l_eed);
2726: end if;
2727: end if;
2728: end loop; -- create person type usage loop
2729: hr_utility.set_location('Leaving '||l_proc,90);
2730: exception
2731: when e_no_pt then
2732: hr_utility.set_location('Leaving '||l_proc||' No person type found.',100);
2733: raise;
2728: end loop; -- create person type usage loop
2729: hr_utility.set_location('Leaving '||l_proc,90);
2730: exception
2731: when e_no_pt then
2732: hr_utility.set_location('Leaving '||l_proc||' No person type found.',100);
2733: raise;
2734: when e_no_pen then
2735: hr_utility.set_location('Leaving '||l_proc||' No enrollments found.',110);
2736: raise;
2731: when e_no_pt then
2732: hr_utility.set_location('Leaving '||l_proc||' No person type found.',100);
2733: raise;
2734: when e_no_pen then
2735: hr_utility.set_location('Leaving '||l_proc||' No enrollments found.',110);
2736: raise;
2737: when others then
2738: hr_utility.set_location('Leaving '||l_proc||' When others fired.',120);
2739: raise;
2734: when e_no_pen then
2735: hr_utility.set_location('Leaving '||l_proc||' No enrollments found.',110);
2736: raise;
2737: when others then
2738: hr_utility.set_location('Leaving '||l_proc||' When others fired.',120);
2739: raise;
2740: End;
2741: --
2742: -- ----------------------------------------------------------------------------
2798: l_step integer;
2799: l_datetrack_mode varchar2(30);
2800: --
2801: Begin
2802: hr_utility.set_location('Entering' || l_proc,5);
2803: --
2804: -- C1 is cursor is pull out all suspended plan with in program that user
2805: -- specified and cursor c2 is cursor to pull out all options are not suspended
2806: -- within the plan.
2833: ,p_effective_date => p_effective_date
2834: );
2835: End loop;
2836: End loop;
2837: hr_utility.set_location('Leaving' || l_proc,10);
2838: Exception
2839: when others then
2840: hr_utility.set_location('Fail at '||l_proc||' step - '||
2841: to_char(l_step),999);
2836: End loop;
2837: hr_utility.set_location('Leaving' || l_proc,10);
2838: Exception
2839: when others then
2840: hr_utility.set_location('Fail at '||l_proc||' step - '||
2841: to_char(l_step),999);
2842: raise;
2843: End;
2844: --
2962: l_erl varchar2(30);
2963:
2964: --
2965: begin
2966: hr_utility.set_location(l_proc,5);
2967: --
2968: -- suspended all suspended saving plan's options.
2969: --
2970: l_step := 5;
2989: fnd_message.raise_error;
2990: end if;
2991: close c_paf;
2992: --
2993: hr_utility.set_location('l_assignment_id is :-'||l_assignment_id ,1234);
2994: -- Cache all comp objects belong to a specified person_id for a
2995: -- specified program or all program dependent on p_chk_all_pgm_flg,
2996: -- If Yes, then all program will be cached, otherwise, only the pgm_id
2997: -- is specified.
3014: and g_ptip_tbl(i).dpnt_cvd_by_othr_apls_flag = 'N') then
3015: --
3016: --bug #2162121
3017: --
3018: hr_utility.set_location('Get the plan name and option name.:-' ,1234);
3019: l_ptip_tbl_ct := nvl(g_ptip_tbl(i).tot_pl_enrld, 0); -- nvl(g_ptip_tbl.count, 0); Bug 2390734
3020: -- -- This change is made so that the error message for 92968 displays names of only
3021: -- those compensation objects, that the person is being enrolled in.
3022: if l_ptip_tbl_ct > 0 then
3035: fetch c_pl_name into l_plan_name;
3036: close c_pl_name;
3037:
3038: -- l_plan_opt_names := l_plan_opt_names ||l_plan_name;
3039: hr_utility.set_location (l_plan_name|| 'l_plan_name :1 : ',1235);
3040:
3041: if g_enrt_tbl(i2).oipl_id is not null then
3042: --
3043: l_option_name := null;
3045: fetch c_opt_name into l_option_name;
3046: close c_opt_name;
3047:
3048: l_plan_name := l_plan_name ||l_option_name;
3049: hr_utility.set_location (l_option_name|| 'l_option_name',1235);
3050: --
3051: end if ;
3052:
3053: if l_plan_opt_names is null then
3057: end if;
3058:
3059: end if; --g_ptip_tbl(i).ptip_id = g_enrt_tbl(i2).ptip_id
3060:
3061: hr_utility.set_location (l_plan_opt_names|| 'l_plan_opt_names',1235);
3062:
3063: end loop;
3064: end if; --l_ptip_tbl_ct > 0
3065:
3126: (g_ptip_tbl(i).use_to_sum_ee_lf_ins_flag = 'Y') then
3127: g_tot_ee_lf_ins_amt := g_tot_ee_lf_ins_amt + g_ptip_tbl(i).tot_cvg_amt;
3128: g_tot_ee_lf_ins_amt_no := g_tot_ee_lf_ins_amt_no + g_ptip_tbl(i).tot_cvg_amt_no_interim;
3129: end if;
3130: hr_utility.set_location('g_tot_ee_lf_ins_amt '||g_tot_ee_lf_ins_amt,111);
3131: hr_utility.set_location('g_tot_ee_lf_ins_amt_no '||g_tot_ee_lf_ins_amt_no,111);
3132: end loop;
3133: --
3134: -- Check for spouse and dependent coverage limitations.
3127: g_tot_ee_lf_ins_amt := g_tot_ee_lf_ins_amt + g_ptip_tbl(i).tot_cvg_amt;
3128: g_tot_ee_lf_ins_amt_no := g_tot_ee_lf_ins_amt_no + g_ptip_tbl(i).tot_cvg_amt_no_interim;
3129: end if;
3130: hr_utility.set_location('g_tot_ee_lf_ins_amt '||g_tot_ee_lf_ins_amt,111);
3131: hr_utility.set_location('g_tot_ee_lf_ins_amt_no '||g_tot_ee_lf_ins_amt_no,111);
3132: end loop;
3133: --
3134: -- Check for spouse and dependent coverage limitations.
3135: --
3150: g_mx_dpnt_pct_prtt_lf := g_pgm_rec.MX_DPNT_PCT_PRTT_LF_AMT;
3151: end if;
3152: end if;
3153: --
3154: hr_utility.set_location('g_tot_sps_lf_ins_amt'||g_tot_sps_lf_ins_amt,111);
3155: hr_utility.set_location('g_tot_dpnt_lf_ins_amt'||g_tot_dpnt_lf_ins_amt,111);
3156: hr_utility.set_location('g_tot_sps_lf_ins_amt_no'||g_tot_sps_lf_ins_amt_no,111);
3157: hr_utility.set_location('g_tot_dpnt_lf_ins_amt_no'||g_tot_dpnt_lf_ins_amt_no,111);
3158: --
3151: end if;
3152: end if;
3153: --
3154: hr_utility.set_location('g_tot_sps_lf_ins_amt'||g_tot_sps_lf_ins_amt,111);
3155: hr_utility.set_location('g_tot_dpnt_lf_ins_amt'||g_tot_dpnt_lf_ins_amt,111);
3156: hr_utility.set_location('g_tot_sps_lf_ins_amt_no'||g_tot_sps_lf_ins_amt_no,111);
3157: hr_utility.set_location('g_tot_dpnt_lf_ins_amt_no'||g_tot_dpnt_lf_ins_amt_no,111);
3158: --
3159: l_step := 40;
3152: end if;
3153: --
3154: hr_utility.set_location('g_tot_sps_lf_ins_amt'||g_tot_sps_lf_ins_amt,111);
3155: hr_utility.set_location('g_tot_dpnt_lf_ins_amt'||g_tot_dpnt_lf_ins_amt,111);
3156: hr_utility.set_location('g_tot_sps_lf_ins_amt_no'||g_tot_sps_lf_ins_amt_no,111);
3157: hr_utility.set_location('g_tot_dpnt_lf_ins_amt_no'||g_tot_dpnt_lf_ins_amt_no,111);
3158: --
3159: l_step := 40;
3160: if (((g_mx_dpnt_pct_prtt_lf * g_tot_ee_lf_ins_amt)/100)
3153: --
3154: hr_utility.set_location('g_tot_sps_lf_ins_amt'||g_tot_sps_lf_ins_amt,111);
3155: hr_utility.set_location('g_tot_dpnt_lf_ins_amt'||g_tot_dpnt_lf_ins_amt,111);
3156: hr_utility.set_location('g_tot_sps_lf_ins_amt_no'||g_tot_sps_lf_ins_amt_no,111);
3157: hr_utility.set_location('g_tot_dpnt_lf_ins_amt_no'||g_tot_dpnt_lf_ins_amt_no,111);
3158: --
3159: l_step := 40;
3160: if (((g_mx_dpnt_pct_prtt_lf * g_tot_ee_lf_ins_amt)/100)
3161: < g_tot_dpnt_lf_ins_amt) then
3202: for i in 1..g_pl_typ_cnt loop
3203: --
3204: -- Plan type enrollment limitation (Max and Min).
3205: --
3206: hr_utility.set_location('pl_typ_id='||to_char(g_pl_typ_tbl(i).pl_typ_id),99);
3207: hr_utility.set_location('val='||to_char(g_pl_typ_tbl(i).tot_pl_enrld)||
3208: ' min='||to_char(g_pl_typ_tbl(i).mn_enrl_rqd_num)||
3209: ' max='||to_char(g_pl_typ_tbl(i).mx_enrl_alwd_num)
3210: , 101);
3203: --
3204: -- Plan type enrollment limitation (Max and Min).
3205: --
3206: hr_utility.set_location('pl_typ_id='||to_char(g_pl_typ_tbl(i).pl_typ_id),99);
3207: hr_utility.set_location('val='||to_char(g_pl_typ_tbl(i).tot_pl_enrld)||
3208: ' min='||to_char(g_pl_typ_tbl(i).mn_enrl_rqd_num)||
3209: ' max='||to_char(g_pl_typ_tbl(i).mx_enrl_alwd_num)
3210: , 101);
3211: if (g_pl_typ_tbl(i).tot_pl_enrld > g_pl_typ_tbl(i).mx_enrl_alwd_num
3288: --
3289: IF (g_enrt_tbl (j).pl_id = g_pl_tbl (i).pl_id
3290: AND g_enrt_tbl (j).prtt_enrt_rslt_id IS NOT NULL
3291: ) THEN
3292: hr_utility.set_location('l_chk_pln_cvg_lmts='|| 'TRUE' ,99);
3293: l_chk_pln_cvg_lmts := TRUE;
3294: EXIT;
3295: END IF;
3296: END LOOP;
3294: EXIT;
3295: END IF;
3296: END LOOP;
3297: --
3298: hr_utility.set_location('g_pl_tbl(i).tot_cvg_amt='||g_pl_tbl(i).tot_cvg_amt,99);
3299: hr_utility.set_location('g_pl_tbl(i).mx_cvg_alwd_amt='||g_pl_tbl(i).mx_cvg_alwd_amt,99);
3300: hr_utility.set_location('g_pl_tbl(i).mx_cvg_wcfn_amt='||g_pl_tbl(i).mx_cvg_wcfn_amt,99);
3301: --
3302: IF (l_chk_pln_cvg_lmts) THEN
3295: END IF;
3296: END LOOP;
3297: --
3298: hr_utility.set_location('g_pl_tbl(i).tot_cvg_amt='||g_pl_tbl(i).tot_cvg_amt,99);
3299: hr_utility.set_location('g_pl_tbl(i).mx_cvg_alwd_amt='||g_pl_tbl(i).mx_cvg_alwd_amt,99);
3300: hr_utility.set_location('g_pl_tbl(i).mx_cvg_wcfn_amt='||g_pl_tbl(i).mx_cvg_wcfn_amt,99);
3301: --
3302: IF (l_chk_pln_cvg_lmts) THEN
3303: -- Bug: 3949327 changes end;
3296: END LOOP;
3297: --
3298: hr_utility.set_location('g_pl_tbl(i).tot_cvg_amt='||g_pl_tbl(i).tot_cvg_amt,99);
3299: hr_utility.set_location('g_pl_tbl(i).mx_cvg_alwd_amt='||g_pl_tbl(i).mx_cvg_alwd_amt,99);
3300: hr_utility.set_location('g_pl_tbl(i).mx_cvg_wcfn_amt='||g_pl_tbl(i).mx_cvg_wcfn_amt,99);
3301: --
3302: IF (l_chk_pln_cvg_lmts) THEN
3303: -- Bug: 3949327 changes end;
3304: -- Check min coverage amount.
3601: ,p_pgm_id => p_pgm_id
3602: ,p_business_group_id => p_business_group_id
3603: ,p_effective_date => p_effective_date
3604: );
3605: hr_utility.set_location (l_proc, 10);
3606: Exception
3607: when others then
3608: hr_utility.set_location('Fail at '||l_proc||' step - '||
3609: to_char(l_step),999);
3604: );
3605: hr_utility.set_location (l_proc, 10);
3606: Exception
3607: when others then
3608: hr_utility.set_location('Fail at '||l_proc||' step - '||
3609: to_char(l_step),999);
3610: raise;
3611: end;
3612: --
3627: l_message_name varchar2(500) := 'BEN_94592_RT_STRT_GT_END_DT';
3628: --
3629: Begin
3630: --
3631: hr_utility.set_location('Entering:'||l_proc, 5);
3632: --
3633: if p_enrt_cvg_strt_dt > p_enrt_cvg_thru_dt then
3634: benutils.write(p_text=>fnd_message.get);
3635: ben_warnings.load_warning
3640: ,p_person_id => p_person_id
3641: );
3642: end if;
3643: --
3644: hr_utility.set_location('Leaving:'||l_proc,10);
3645: --
3646: end chk_cvg_strt_end_dt;
3647: --
3648: ----Bug#5088571*/
3690: l_integrity_error Exception;
3691: l_table_name all_tables.table_name%TYPE;
3692: --
3693: Begin
3694: hr_utility.set_location('Entering:'||l_proc, 5);
3695: --
3696: -- Ensure that the p_datetrack_mode argument is not null
3697: --
3698: hr_api.mandatory_arg_error
3768: Raise l_integrity_error;
3769: End If;
3770: End If;
3771: --
3772: hr_utility.set_location(' Leaving:'||l_proc, 10);
3773: Exception
3774: When l_integrity_error Then
3775: --
3776: -- A referential integrity check was violated therefore
3835: l_rows_exist Exception;
3836: l_table_name all_tables.table_name%TYPE;
3837:
3838: Begin
3839: hr_utility.set_location('Entering:'||l_proc, 5);
3840: --
3841: -- Ensure that the p_datetrack_mode argument is not null
3842: --
3843: hr_api.mandatory_arg_error
3920: Raise l_rows_exist;
3921: End If;
3922: End If;
3923: --
3924: hr_utility.set_location(' Leaving:'||l_proc, 10);
3925: Exception
3926: When l_rows_exist Then
3927: --
3928: -- A referential integrity check was violated therefore
3953: --
3954: l_proc varchar2(72) := g_package||'insert_validate';
3955: --
3956: Begin
3957: hr_utility.set_location('Entering:'||l_proc, 5);
3958: --
3959: -- Call context sensitive validate bgp cache routine
3960: --
3961: ben_batch_dt_api.batch_validate_bgp_id
4071: (p_enrt_cvg_strt_dt => p_rec.enrt_cvg_strt_dt,
4072: p_enrt_cvg_thru_dt => p_rec.enrt_cvg_thru_dt,
4073: p_person_id => p_rec.person_id);*/
4074: --
4075: hr_utility.set_location(' Leaving:'||l_proc, 10);
4076: End insert_validate;
4077: --
4078: -- ----------------------------------------------------------------------------
4079: -- |---------------------------< update_validate >----------------------------|
4087: --
4088: l_proc varchar2(72) := g_package||'update_validate';
4089: --
4090: Begin
4091: hr_utility.set_location('Entering:'||l_proc, 5);
4092: --
4093: -- Call context sensitive validate bgp cache routine
4094: --
4095: ben_batch_dt_api.batch_validate_bgp_id
4217: (p_enrt_cvg_strt_dt => p_rec.enrt_cvg_strt_dt,
4218: p_enrt_cvg_thru_dt => p_rec.enrt_cvg_thru_dt,
4219: p_person_id => p_rec.person_id);*/
4220: --
4221: hr_utility.set_location(' Leaving:'||l_proc, 10);
4222: End update_validate;
4223: --
4224: -- ----------------------------------------------------------------------------
4225: -- |---------------------------< delete_validate >----------------------------|
4233: --
4234: l_proc varchar2(72) := g_package||'delete_validate';
4235: --
4236: Begin
4237: hr_utility.set_location('Entering:'||l_proc, 5);
4238: --
4239: -- Call all supporting business operations
4240: --
4241: dt_delete_validate
4244: p_validation_end_date => p_validation_end_date,
4245: p_effective_date => p_effective_date, -- Added for bug 3646239
4246: p_prtt_enrt_rslt_id => p_rec.prtt_enrt_rslt_id);
4247: --
4248: hr_utility.set_location(' Leaving:'||l_proc, 10);
4249: End delete_validate;
4250: --
4251: --
4252: -- ---------------------------------------------------------------------------
4271: l_proc varchar2(72) := g_package||'return_legislation_code';
4272: --
4273: begin
4274: --
4275: hr_utility.set_location('Entering:'|| l_proc, 10);
4276: --
4277: -- Ensure that all the mandatory parameter are not null
4278: --
4279: hr_api.mandatory_arg_error(p_api_name => l_proc,
4296: end if;
4297: --
4298: close csr_leg_code;
4299: --
4300: hr_utility.set_location(' Leaving:'|| l_proc, 20);
4301: --
4302: return l_legislation_code;
4303: --
4304: end return_legislation_code;