[Home] [Help]
42: l_api_updating boolean;
43: --
44: Begin
45: --
46: hr_utility.set_location('Entering:'||l_proc, 5);
47: --
48: l_api_updating := ben_pln_shd.api_updating
49: (p_effective_date => p_effective_date,
50: p_pl_id => p_pl_id,
71: end if;
72: --
73: end if;
74: --
75: hr_utility.set_location('Leaving:'||l_proc, 10);
76: --
77: End chk_pl_id;
78: --
79: -- ----------------------------------------------------------------------------
142: --
143:
144: Begin
145: --
146: hr_utility.set_location('Entering:'||l_proc, 5);
147: --
148: l_api_updating := ben_pln_shd.api_updating
149: (p_pl_id => p_pl_id,
150: p_effective_date => p_effective_date,
201: close c_get_ptp_opt_typ_cd;
202: --
203: end if;
204: --
205: hr_utility.set_location('Leaving:'||l_proc,10);
206: --
207: end chk_irec_pln_in_rptg_grp;
208: --
209: Procedure chk_compare_claims_cd (p_pl_id in number ,
224: and a.prtt_reimbmt_rqst_stat_cd <> 'VOIDD';
225: --
226: Begin
227: --
228: hr_utility.set_location('Entering:'||l_proc, 5);
229: --
230: l_api_updating := ben_pln_shd.api_updating
231: (p_effective_date => p_effective_date,
232: p_pl_id => p_pl_id,
285: l_proc varchar2(72) := g_package||'chk_pl_group_child';
286:
287: Begin
288:
289: hr_utility.set_location('Entering:'||l_proc, 5);
290: l_opt_typ_cd := p_opt_typ_cd ;
291: if p_opt_typ_cd is null then
292: open c_pl_cwb ;
293: fetch c_pl_cwb into l_opt_typ_cd;
304: end if ;
305: close c_child_exist ;
306: end if ;
307: --
308: hr_utility.set_location('Leaving:'||l_proc, 10);
309: --
310:
311: end chk_pl_group_child ;
312:
346:
347: --
348: Begin
349: --
350: hr_utility.set_location('Entering:'||l_proc, 5);
351: hr_utility.set_location('p_group_pl_id:'||p_group_pl_id, 5);
352:
353: -- if the plan type is cwb and group_pl_id null throw the error
354: open c_pl_cwb ;
347: --
348: Begin
349: --
350: hr_utility.set_location('Entering:'||l_proc, 5);
351: hr_utility.set_location('p_group_pl_id:'||p_group_pl_id, 5);
352:
353: -- if the plan type is cwb and group_pl_id null throw the error
354: open c_pl_cwb ;
355: fetch c_pl_cwb into l_opt_typ_cd ;
398: p_effective_date => p_effective_date,
399: p_name => p_name) ;
400: end if ;
401: --
402: hr_utility.set_location('Leaving:'||l_proc, 10);
403: --
404: End chk_pl_group_id;
405: -- |------------------------< chk_plan_name_unique >--------------------------|
406: -- ----------------------------------------------------------------------------
451: and p_validation_end_date >= effective_start_date;
452: --
453: Begin
454: --
455: hr_utility.set_location('Entering:'||l_proc, 5);
456: --
457: l_api_updating := ben_pln_shd.api_updating
458: (p_effective_date => p_effective_date,
459: p_pl_id => p_pl_id,
483: close c1;
484: --
485: end if;
486: --
487: hr_utility.set_location('Leaving:'||l_proc, 10);
488: --
489: End chk_plan_name_unique;
490:
491: --
520:
521: --
522: Begin
523: --
524: hr_utility.set_location('Entering:'||l_proc, 5555);
525: --
526: if nvl(p_enrt_mthd_cd,'E') <> 'A' then
527: open c1;
528: --
544: end if;
545:
546: end if;
547: --
548: hr_utility.set_location('Leaving:'||l_proc, 10);
549: --
550: End chk_auto_enrt_and_mthd;
551:
552: -- Bug# 5710248
580: and epe.business_group_id = pil.business_group_id;
581: --
582: Begin
583: --
584: hr_utility.set_location('Entering:'||l_proc, 5555);
585: --
586: l_api_updating := ben_pln_shd.api_updating
587: (p_effective_date => p_effective_date,
588: p_pl_id => p_pl_id,
609: end if;
610: --
611: end if;
612: --
613: hr_utility.set_location('Leaving:'||l_proc, 10);
614: --
615: end chk_pl_typ_change;
616:
617: -- Bug# 5710248
698: and p_effective_date between ptp.effective_start_date and ptp.effective_end_date;
699: --
700: Begin
701: --
702: hr_utility.set_location('Entering:'||l_proc, 5);
703: --
704: --
705: -- Get the Option Type of the Plan Type
706: --
744: end if;
745: --
746: close c1;
747: --
748: hr_utility.set_location('Leaving:'||l_proc, 10);
749: --
750: End chk_cwb_plan_type_uniq_plan;
751:
752: --
785: --
786: --
787: Begin
788: --
789: hr_utility.set_location('Entering:'||l_proc, 5);
790: --
791: if (p_bnf_pct_amt_alwd_cd = 'PCTO' and
792: p_bnf_incrmt_amt is not null) then
793: --
810: fnd_message.raise_error;
811: --
812: end if;
813: --
814: hr_utility.set_location('Leaving:'||l_proc, 10);
815: --
816: End chk_measures_allowed;
817: --
818: -- Code Appended for Bug# 2334297
863: and p_effective_date between cvg.effective_start_date and cvg.effective_end_date;
864: --
865: Begin
866: --
867: hr_utility.set_location('Entering:'||l_proc, 5);
868: --
869: l_api_updating := ben_pln_shd.api_updating
870: (p_effective_date => p_effective_date,
871: p_pl_id => p_pl_id,
883: fetch c1 into l_dummy;
884: if c1%found then
885: --
886: close c1;
887: hr_utility.set_location('Inside :'||l_proc, 8);
888: fnd_message.set_name('BEN', 'BEN_93113_CD_CANNOT_NEXTLOWER');
889: fnd_message.raise_error;
890: --
891: else
897: end if; -- End of instr end if
898: --
899: end if;
900: --
901: hr_utility.set_location('Leaving:'||l_proc, 10);
902: --
903: End chk_dflt_to_asn_pndg_ctfn_cd;
904:
905: -- End of code Append Bug# 2334297
938: l_proc varchar2(72) := g_package||'chk_flag_and_val';
939: --
940: Begin
941: --
942: hr_utility.set_location('Entering:'||l_proc, 5);
943: --
944: if p_flag = 'Y' and p_val is not null then
945: fnd_message.set_name('BEN', p_msg);
946: fnd_message.raise_error;
945: fnd_message.set_name('BEN', p_msg);
946: fnd_message.raise_error;
947: end if;
948: --
949: hr_utility.set_location('Leaving:'||l_proc,10);
950: --
951: end chk_flag_and_val;
952: --
953: --
982: l_proc varchar2(72) := g_package||'chk_code_rule_dpnd';
983: --
984: Begin
985: --
986: hr_utility.set_location('Entering:'||l_proc, 5);
987: --
988: if p_code <> 'RL' and p_rule is not null then
989: --
990: fnd_message.set_name('BEN','BEN_91624_CD_RL_2');
996: fnd_message.raise_error;
997: --
998: end if;
999: --
1000: hr_utility.set_location('Leaving:'||l_proc,10);
1001: --
1002: end chk_code_rule_dpnd;
1003: --
1004: -- ----------------------------------------------------------------------------
1034: l_proc varchar2(72) := g_package||'chk_mn_val_mn_flag_mn_rule';
1035: --
1036: Begin
1037: --
1038: hr_utility.set_location('Entering:'||l_proc, 5);
1039: --
1040: if p_mn_cvg_rqd_amt is not null and (p_no_mn_cvg_amt_apls_flag = 'Y' or
1041: p_mn_cvg_rl is not null) then
1042: --
1056: fnd_message.raise_error;
1057: --
1058: end if;
1059: --
1060: hr_utility.set_location('Leaving:'||l_proc,10);
1061: --
1062: end chk_mn_val_mn_flag_mn_rule;
1063:
1064:
1077: l_api_updating boolean;
1078: --
1079: Begin
1080: --
1081: hr_utility.set_location('Entering:'||l_proc, 5);
1082: --
1083: l_api_updating := ben_pln_shd.api_updating
1084: (p_effective_date => p_effective_date,
1085: p_pl_id => p_pl_id,
1109: end if;
1110: --
1111: end if;
1112: --
1113: hr_utility.set_location('Leaving:'||l_proc,10);
1114: --
1115: end chk_vrfy_fmly_mmbr_rl;
1116: --
1117:
1151: l_proc varchar2(72) := g_package||'chk_dpnt_dsgn_cd';
1152: --
1153: Begin
1154: --
1155: hr_utility.set_location('Entering:'||l_proc, 5);
1156: --
1157: if (p_dpnt_dsgn_cd is not null) and
1158: (p_dpnt_cvg_strt_dt_cd is null or p_dpnt_cvg_end_dt_cd is null) then
1159:
1168: fnd_message.raise_error;
1169: end if;
1170:
1171: --
1172: hr_utility.set_location('Leaving:'||l_proc,10);
1173: --
1174: --
1175: end chk_dpnt_dsgn_cd;
1176: --
1185: l_api_updating boolean;
1186: --
1187: Begin
1188: --
1189: hr_utility.set_location('Entering:'||l_proc, 5);
1190: --
1191: l_api_updating := ben_pln_shd.api_updating
1192: (p_pl_id => p_pl_id,
1193: p_effective_date => p_effective_date,
1218: end if;
1219: --
1220: end if;
1221: --
1222: hr_utility.set_location('Leaving:'||l_proc,10);
1223: --
1224: end chk_vrfy_fmly_mmbr_cd;
1225: --
1226:
1234: l_api_updating boolean;
1235: --
1236: --
1237: begin
1238: hr_utility.set_location('Entering:'||l_proc, 5);
1239: l_api_updating := ben_pln_shd.api_updating
1240: (p_pl_id => p_pl_id,
1241: p_effective_date => p_effective_date,
1242: p_object_version_number => p_object_version_number);
1271: fnd_message.set_name('BEN','BEN_93948_CSD_RSD_PLIP');
1272: fnd_message.raise_error;
1273: end if ;
1274:
1275: hr_utility.set_location('Leaving:'||l_proc,10);
1276: --
1277: --
1278: end chk_use_csd_rsd_prccng_cd;
1279: --
1364:
1365: --
1366: Begin
1367: --
1368: hr_utility.set_location('Entering:'||l_proc, 5);
1369: --
1370: -- If ldc1 records exists and designation is null then error
1371: --
1372: if (p_dpnt_dsgn_cd is null) then
1436: end if;
1437: --
1438: --
1439: --
1440: hr_utility.set_location('Leaving:'||l_proc,10);
1441: --
1442: end chk_dpnt_dsgn_cd_detail;
1443: --
1444: -- ----------------------------------------------------------------------------
1474: l_proc varchar2(72) := g_package||'chk_mx_val_mx_flag_mx_rule';
1475: --
1476: Begin
1477: --
1478: hr_utility.set_location('Entering:'||l_proc, 5);
1479: --
1480: if p_mx_cvg_alwd_amt is not null and (p_no_mx_cvg_amt_apls_flag = 'Y' or
1481: p_mx_cvg_rl is not null) then
1482: --
1496: fnd_message.raise_error;
1497: --
1498: end if;
1499: --
1500: hr_utility.set_location('Leaving:'||l_proc,10);
1501: --
1502: end chk_mx_val_mx_flag_mx_rule;
1503: --
1504: -- ----------------------------------------------------------------------------
1544: l_api_updating boolean;
1545: --
1546: Begin
1547: --
1548: hr_utility.set_location('Entering:'||l_proc, 5);
1549: --
1550: l_api_updating := ben_pln_shd.api_updating
1551: (p_effective_date => p_effective_date,
1552: p_pl_id => p_pl_id,
1579: end if;
1580: --
1581: end if;
1582: --
1583: hr_utility.set_location('Leaving:'||l_proc, 10);
1584: --
1585: End chk_mutual_exclusive_flags;
1586: -- ----------------------------------------------------------------------------
1587: -- |----------------------< chk_mutual_exlsv_rule_num_uom >--------------------|
1624: l_api_updating boolean;
1625: --
1626: Begin
1627: --
1628: hr_utility.set_location('Entering:'||l_proc, 5);
1629: --
1630: l_api_updating := ben_pln_shd.api_updating
1631: (p_effective_date => p_effective_date,
1632: p_pl_id => p_pl_id,
1642: fnd_message.raise_error;
1643: --
1644: end if;
1645: --
1646: hr_utility.set_location('Leaving:'||l_proc, 10);
1647: --
1648: End chk_mutual_exlsv_rule_num_uom;
1649: --
1650: -- ----------------------------------------------------------------------------
1768: l_api_updating boolean;
1769: --
1770: Begin
1771: --
1772: hr_utility.set_location('Entering:'||l_proc, 5);
1773: --
1774: l_api_updating := ben_pln_shd.api_updating
1775: (p_pl_id => p_pl_id,
1776: p_effective_date => p_effective_date,
2725: end if;
2726: --
2727: end if;
2728: --
2729: hr_utility.set_location('Leaving:'||l_proc,10);
2730: --
2731: end chk_all_flags;
2732: -- ----------------------------------------------------------------------------
2733: -- |----------------------------< chk_all_lookups >---------------------------|
2828: l_dummy varchar2(30);
2829: --
2830: Begin
2831: --
2832: hr_utility.set_location('Entering:'||l_proc, 5);
2833: --
2834: l_api_updating := ben_pln_shd.api_updating
2835: (p_pl_id => p_pl_id,
2836: p_effective_date => p_effective_date,
3550: --
3551: end if;
3552: --
3553: end if;
3554: hr_utility.set_location('Leaving:'||l_proc,10);
3555: --
3556: end chk_all_lookups;
3557: -- ----------------------------------------------------------------------------
3558: -- |--------------------------< chk_all_rules >-------------------------------|
3628: and ff.effective_end_date;
3629: --
3630: Begin
3631: --
3632: hr_utility.set_location('Entering:'||l_proc, 5);
3633: --
3634: l_api_updating := ben_pln_shd.api_updating
3635: (p_pl_id => p_pl_id,
3636: p_effective_date => p_effective_date,
4161: --
4162: close c1;
4163: --
4164: end if;
4165: hr_utility.set_location('Leaving:'||l_proc,10);
4166: --
4167: end chk_all_rules;
4168: --
4169: -- ----------------------------------------------------------------------------
4222: p_rt_end_dt_cd in varchar2,
4223: p_rt_end_dt_rl in number ) IS
4224: l_proc varchar2(72) := g_package||'chk_cd_rl_combination';
4225: BEGIN
4226: hr_utility.set_location('Entering:'||l_proc, 5);
4227: --
4228:
4229: if (p_vrfy_fmly_mmbr_cd <> 'RL' and p_vrfy_fmly_mmbr_rl is not null)
4230: then
4309: fnd_message.raise_error;
4310: end if;
4311: -- Leaving Procedure.
4312: --
4313: hr_utility.set_location('Leaving:'||l_proc,10);
4314: --
4315: end chk_cd_rl_combination;
4316:
4317: -- ----------------------------------------------------------------------------
4349: l_proc varchar2(72) := g_package||'chk_all_no_amount_flags';
4350: --
4351: Begin
4352: --
4353: hr_utility.set_location('Entering:'||l_proc, 5);
4354: --
4355: -- check if it is a valid combination
4356: --
4357: if ((p_no_mn_cvg_amt_apls_flag='Y' and p_mn_cvg_rqd_amt>0) or
4375: fnd_message.raise_error;
4376: --
4377: end if;
4378: --
4379: hr_utility.set_location('Leaving:'||l_proc,10);
4380: --
4381: end chk_all_no_amount_flags;
4382: --
4383: -- ----------------------------------------------------------------------------
4410: l_proc varchar2(72) := g_package||'chk_mn_val_mx_val';
4411: --
4412: Begin
4413: --
4414: hr_utility.set_location('Entering:'||l_proc, 5);
4415: --
4416: -- check the values
4417: -- note: Don't want an error if either one is null
4418: --
4424: fnd_message.raise_error;
4425: --
4426: end if;
4427: --
4428: hr_utility.set_location('Leaving:'||l_proc, 5);
4429: --
4430: end chk_mn_val_mx_val;
4431: -- ----------------------------------------------------------------------------
4432: -- |------------------------< chk_plan_oipl_mutexcl >--------------------------|
4477: and a.effective_end_date;
4478: --
4479: Begin
4480: --
4481: hr_utility.set_location('Entering:'||l_proc, 5);
4482: --
4483: l_api_updating := ben_pln_shd.api_updating
4484: (p_effective_date => p_effective_date,
4485: p_pl_id => p_pl_id,
4507: close c1;
4508: --
4509: end if;
4510: --
4511: hr_utility.set_location('Leaving:'||l_proc, 10);
4512: --
4513: End chk_plan_oipl_mutexcl;
4514: -- ----------------------------------------------------------------------------
4515: -- |--------------------------< chk_nip_pln_uom >-----------------------------|
4559: and effective_end_date;
4560: --
4561: Begin
4562: --
4563: hr_utility.set_location('Entering:'||l_proc, 5);
4564: --
4565: if (p_pl_typ_id is not null) then
4566: --
4567: -- Get the option type code of the plan type linked to the plan
4597: --
4598: end if;
4599: end if;
4600: --
4601: hr_utility.set_location('Leaving:'||l_proc, 10);
4602: --
4603: End chk_nip_pln_uom;
4604: --
4605: -- bug 3876692
4674: and epa.prtn_elig_id = cer.prtn_elig_id));
4675: --
4676: Begin
4677: --
4678: hr_utility.set_location('Entering:'||l_proc,5);
4679: --
4680: l_api_updating := ben_pln_shd.api_updating
4681: (p_effective_date => p_effective_date,
4682: p_pl_id => p_pl_id,
4718: end if;
4719: --
4720: end if;
4721: --
4722: hr_utility.set_location('Leaving:'||l_proc,10);
4723: --
4724: End chk_prfl_rule_extnce;
4725: --
4726: --
4782: l_integrity_error Exception;
4783: l_table_name all_tables.table_name%TYPE;
4784: --
4785: Begin
4786: hr_utility.set_location('Entering:'||l_proc, 5);
4787: --
4788: -- Ensure that the p_datetrack_mode argument is not null
4789: --
4790: hr_api.mandatory_arg_error
5033: End If;
5034: --
5035: End If;
5036: --
5037: hr_utility.set_location(' Leaving:'||l_proc, 10);
5038: Exception
5039: When l_integrity_error Then
5040: --
5041: -- A referential integrity check was violated therefore
5112: from ben_cwb_wksht_grp t
5113: where t.pl_id = p_pl_id ;
5114: --
5115: Begin
5116: hr_utility.set_location('Entering:'||l_proc, 5);
5117: --
5118: -- Ensure that the p_datetrack_mode argument is not null
5119: --
5120: hr_api.mandatory_arg_error
5431: --
5432: --
5433: End If;
5434: --
5435: hr_utility.set_location(' Leaving:'||l_proc, 10);
5436: Exception
5437: When l_rows_exist Then
5438: --
5439: -- A referential integrity check was violated therefore
5466: --
5467: l_proc varchar2(72) := g_package||'insert_validate';
5468: --
5469: Begin
5470: hr_utility.set_location('Entering:'||l_proc, 5);
5471: --
5472: -- Call all supporting business operations
5473: --
5474: if p_rec.business_group_id is not null and p_rec.legislation_code is null then
5744: p_effective_date => p_effective_date
5745: ) ;
5746: */
5747: --
5748: hr_utility.set_location(' Leaving:'||l_proc, 10);
5749: End insert_validate;
5750: --
5751: -- ----------------------------------------------------------------------------
5752: -- |---------------------------< update_validate >----------------------------|
5760: --
5761: l_proc varchar2(72) := g_package||'update_validate';
5762: --
5763: Begin
5764: hr_utility.set_location('Entering:'||l_proc, 5);
5765: --
5766: -- Call all supporting business operations
5767: --
5768: if p_rec.business_group_id is not null and p_rec.legislation_code is null then
6108: p_cmpr_clms_to_cvg_or_bal_cd => p_rec.cmpr_clms_to_cvg_or_bal_cd,
6109: p_object_version_number => p_rec.object_version_number);
6110:
6111: --
6112: hr_utility.set_location(' Leaving:'||l_proc, 10);
6113: End update_validate;
6114: --
6115: -- ----------------------------------------------------------------------------
6116: -- |---------------------------< delete_validate >----------------------------|
6137: l_plan_name varchar2(240);
6138: --
6139: --
6140: Begin
6141: hr_utility.set_location('Entering:'||l_proc, 5);
6142: --
6143: -- Bug 4057566
6144: --
6145: open c_plan_name;
6162: p_validation_end_date => p_validation_end_date,
6163: p_pl_id => p_rec.pl_id,
6164: p_name => l_plan_name );
6165: --
6166: hr_utility.set_location(' Leaving:'||l_proc, 10);
6167: End delete_validate;
6168: --
6169:
6170:
6191:
6192: --
6193: begin
6194: --
6195: hr_utility.set_location('Entering:'|| l_proc, 10);
6196: --
6197: -- Ensure that all the mandatory parameter are not null
6198: --
6199: hr_api.mandatory_arg_error(p_api_name => l_proc,
6216: end if;
6217: --
6218: close csr_leg_code;
6219: --
6220: hr_utility.set_location(' Leaving:'|| l_proc, 20);
6221: --
6222: return l_legislation_code;
6223:
6224: --