[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_abr_shd.api_updating
49: (p_effective_date => p_effective_date,
50: p_acty_base_rt_id => p_acty_base_rt_id,
71: end if;
72: --
73: end if;
74: --
75: hr_utility.set_location('Leaving:'||l_proc, 10);
76: --
77: End chk_acty_base_rt_id;
78: --
79: --
116: and name = p_name
117: and business_group_id = p_business_group_id;
118: --
119: Begin
120: hr_utility.set_location('Entering:'||l_proc, 5);
121: hr_utility.set_location('p_acty_base_rt_id' || p_acty_base_rt_id,235411);
122: --
123: open c1;
124: fetch c1 into l_dummy;
117: and business_group_id = p_business_group_id;
118: --
119: Begin
120: hr_utility.set_location('Entering:'||l_proc, 5);
121: hr_utility.set_location('p_acty_base_rt_id' || p_acty_base_rt_id,235411);
122: --
123: open c1;
124: fetch c1 into l_dummy;
125: if c1%found then
127: fnd_message.set_name('BEN','BEN_91009_NAME_NOT_UNIQUE');
128: fnd_message.raise_error;
129: end if;
130: --
131: hr_utility.set_location('Leaving:'||l_proc, 15);
132: End chk_name_unique;
133: --
134: --ICM
135: -- |------------------------< chk_elem_unique >-------------------------------|
224: l_duplicate varchar2(1);
225: l_dup boolean := FALSE;
226: --
227: Begin
228: hr_utility.set_location('Entering:'||l_proc, 5);
229: --
230: --ICM Changes
231: if p_rec.pl_id is not null then
232: --
306: end if;
307: --
308: end if;
309: --
310: hr_utility.set_location('Leaving:'||l_proc, 15);
311: End chk_elem_unique;
312: --
313: --ICM
314: --
400: l_opt_dsply_fmt_cd varchar2(30);
401: --
402: Begin
403: --
404: hr_utility.set_location('Entering:'||l_proc, 5);
405: --
406: l_api_updating := ben_abr_shd.api_updating
407: (p_acty_base_rt_id => p_acty_base_rt_id,
408: p_effective_date => p_effective_date,
502: from ben_extra_input_values
503: Where acty_base_rt_id = nvl(p_acty_base_rt_id,-1);
504: --
505: Begin
506: hr_utility.set_location('Entering:'||l_proc, 5);
507: --
508: l_api_updating := ben_abr_shd.api_updating
509: (p_acty_base_rt_id => p_acty_base_rt_id,
510: p_effective_date => p_effective_date,
523: fnd_message.raise_error;
524: end if;
525: end if;
526: --
527: hr_utility.set_location('Leaving:'||l_proc, 15);
528: End chk_ext_inp_values;
529: --
530: --
531:
557: and PLN.imptd_incm_calc_cd in ('PRTT','DCA','DPNT','SPS');
558:
559: --
560: Begin
561: hr_utility.set_location('Entering:'||l_proc, 5);
562: --
563: --- when the rate is imputing chek the plan in imputing
564: open c_is_pl_imputed;
565: fetch c_is_pl_imputed into l_dummy;
579: fnd_message.raise_error;
580: end if;
581: End if;
582: --
583: hr_utility.set_location('Leaving:'||l_proc, 15);
584: End chk_impted_incom_rate_unique;
585: --
586:
587: --
603:
604: l_dummy varchar2(1) ;
605:
606: Begin
607: hr_utility.set_location('Entering:'||l_proc, 5);
608: open c_cvg ;
609: fetch c_cvg into l_dummy ;
610: if c_cvg%found then
611: close c_cvg ;
608: open c_cvg ;
609: fetch c_cvg into l_dummy ;
610: if c_cvg%found then
611: close c_cvg ;
612: hr_utility.set_location('Leaving:'||l_proc,10);
613: return ('Y' );
614: end if ;
615: close c_cvg ;
616: return ('N' );
633:
634: l_dummy varchar2(1) ;
635:
636: Begin
637: hr_utility.set_location('Entering:'||l_proc, 5);
638: open c_cvg ;
639: fetch c_cvg into l_dummy ;
640: if c_cvg%found then
641: close c_cvg ;
638: open c_cvg ;
639: fetch c_cvg into l_dummy ;
640: if c_cvg%found then
641: close c_cvg ;
642: hr_utility.set_location('Leaving:'||l_proc,10);
643: return ('Y' );
644: end if ;
645: close c_cvg ;
646: return ('N' );
686: ben_oiplip_f where oiplip_id = p_oiplip_id and
687: p_effective_date between effective_start_date and effective_end_date ;
688:
689: begin
690: hr_utility.set_location('Entering:'||l_proc, 5);
691: if p_rt_mlt_cd = 'CVG' and p_entr_val_at_enrt_flag = 'Y' then
692: -- decide the level
693: If p_pl_id is not null or p_plip_id is not null then
694: -- plan level
729: --if any other level added
730: null;
731: end if ;
732: end if ;
733: hr_utility.set_location('Leaving:'||l_proc,10);
734: end chk_entr_at_enrt_with_cvg;
735:
736:
737: -- ----------------------------------------------------------------------------
985: l_dummy varchar2(15) ;
986:
987: Begin
988: --
989: hr_utility.set_location('Entering:'||l_proc, 5);
990: l_prflvalue := fnd_profile.value('BEN_IMPTD_INCM_POST_TAX');
991: hr_utility.set_location('Profile:'||l_prflvalue, 99 );
992: if l_prflvalue = 'Y' then
993: /* this validation is not done becasuse the opt can not be validated
987: Begin
988: --
989: hr_utility.set_location('Entering:'||l_proc, 5);
990: l_prflvalue := fnd_profile.value('BEN_IMPTD_INCM_POST_TAX');
991: hr_utility.set_location('Profile:'||l_prflvalue, 99 );
992: if l_prflvalue = 'Y' then
993: /* this validation is not done becasuse the opt can not be validated
994: discussed with BP
995: if p_plip_id is not null then
1020: --
1021: end if ;
1022:
1023: end if ;
1024: hr_utility.set_location('Leaving:'||l_proc,10);
1025: --
1026: end chk_subj_to_imptd_incm;
1027:
1028: -- ----------------------------------------------------------------------------
1100:
1101:
1102: Begin
1103: --
1104: hr_utility.set_location('Entering:'||l_proc, 5);
1105: l_api_updating := ben_abr_shd.api_updating
1106: (p_acty_base_rt_id => p_acty_base_rt_id,
1107: p_effective_date => p_effective_date,
1108: p_object_version_number => p_object_version_number);
1456: --
1457: end if;
1458:
1459: --
1460: hr_utility.set_location('Leaving:'||l_proc,10);
1461: --
1462: end chk_all_rules;
1463:
1464:
1548: --
1549: --
1550: Begin
1551: --
1552: hr_utility.set_location('Entering:'||l_proc, 5);
1553: --
1554: l_api_updating := ben_abr_shd.api_updating
1555: (p_acty_base_rt_id => p_acty_base_rt_id,
1556: p_effective_date => p_effective_date,
2100: -- Set Assign on Enrollment Flag to "on"
2101: -- Set Enter value at Enrollment Flag to 'off"
2102: -- Set Predict Flex Credits when eligible flag to "on"
2103: -- Check for values rather than setting them is desirable ???
2104: hr_utility.set_location('Leaving:'||l_proc,10);
2105: --
2106: end chk_all_flags;
2107: --
2108: -- ----------------------------------------------------------------------------
2135: l_proc varchar2(72) := g_package||'chk_estonly_no_ptd_fctr';
2136: --
2137: Begin
2138: --
2139: hr_utility.set_location('Entering:'||l_proc, 5);
2140: --
2141: -- Period to Date Comp. Level Factor and the value of "Estimate Only"
2142: -- for Plan Year-To-Date Contribution Code are mutually exclusive.
2143: --
2218: l_proc varchar2(72) := g_package||'chk_acty_type';
2219: --
2220: Begin
2221: --
2222: hr_utility.set_location('Entering:'||l_proc, 5);
2223: --
2224: if substr(p_acty_typ_cd,1,3) = 'PRD' then
2225: --
2226: open c1;
2285: --
2286: end if ;
2287: end if ;
2288:
2289: hr_utility.set_location('Leaving:'||l_proc, 5);
2290: --
2291: End chk_acty_type;
2292:
2293: -- ----------------------------------------------------------------------------
2322: l_proc varchar2(72) := g_package||'chk_lwr_lmt_val_and_rl';
2323: --
2324: Begin
2325: --
2326: hr_utility.set_location('Entering:'||l_proc, 5);
2327: --
2328: -- Lower Limit Value and Lower Limit Value Rule fields must be
2329: -- mutually exclusive.
2330: if (p_lwr_lmt_val is not null and p_lwr_lmt_calc_rl is not null)
2367: l_proc varchar2(72) := g_package||'chk_upr_lwr_lmt_val';
2368: --
2369: Begin
2370: --
2371: hr_utility.set_location('Entering:'||l_proc, 5);
2372: --
2373: -- Upper Limit Value should not be less than Lower Limit Value
2374: -- mutually exclusive.
2375: if (p_upr_lmt_val is not null and p_lwr_lmt_val is not null) and
2421: l_proc varchar2(72) := g_package||'chk_incr_val_less_than_max_val';
2422: --
2423: Begin
2424: --
2425: hr_utility.set_location('Entering:'||l_proc, 5);
2426: --
2427: -- Increment Value should not be greater than Max Value
2428: -- bug 3947162 --absolute value check --
2429: if (p_incrmt_elcn_val is not null and p_mx_elcn_val is not null) and
2450: null;
2451: --
2452: end if;
2453: --
2454: hr_utility.set_location('Leaving:'||l_proc, 10);
2455: --
2456: end chk_incr_val_less_than_max_val;
2457: --Bug 3460673
2458: --
2490: l_proc varchar2(72) := g_package||'chk_upr_lmt_val_and_rl';
2491: --
2492: Begin
2493: --
2494: hr_utility.set_location('Entering:'||l_proc, 5);
2495: --
2496: -- Upper Limit Value and Upper Limit Value Rule fields must be
2497: -- mutually exclusive.
2498: if (p_upr_lmt_val is not null and p_upr_lmt_calc_rl is not null)
2572: and p_effective_start_date between effective_start_date and effective_end_date
2573: and business_group_id = p_business_group_id;
2574: Begin
2575: --
2576: hr_utility.set_location('Entering:'||l_proc, 5);
2577: --
2578: if p_abr_seq_num is not null then
2579: --
2580: if p_opt_id is not null then
2678: l_api_updating boolean;
2679: --
2680: Begin
2681: --
2682: hr_utility.set_location('Entering:'||l_proc, 5);
2683: --
2684: l_api_updating := ben_abr_shd.api_updating
2685: (p_acty_base_rt_id => p_acty_base_rt_id,
2686: p_effective_date => p_effective_date,
3169: --
3170: end if;
3171: --
3172: end if;
3173: hr_utility.set_location('Leaving:'||l_proc,10);
3174: --
3175: end chk_all_lookups;
3176: --
3177: -- ----------------------------------------------------------------------------
3207: l_proc varchar2(72) := g_package||'chk_prtl_mo_det_mthd_cd_rl';
3208: --
3209: Begin
3210: --
3211: hr_utility.set_location('Entering:'||l_proc, 5);
3212: --
3213: if (p_prtl_mo_det_mthd_cd <> 'RL' and p_prtl_mo_det_mthd_rl is not null)
3214: then
3215: fnd_message.set_name('BEN','BEN_91730_NO_RULE');
3223: end if;
3224: --
3225: -- Leaving Procedure.
3226: --
3227: hr_utility.set_location('Leaving:'||l_proc,10);
3228: --
3229: end chk_prtl_mo_det_mthd_cd_rl;
3230: --
3231: -- ----------------------------------------------------------------------------
3261: l_proc varchar2(72) := g_package||'chk_rndg_cd_rl';
3262: --
3263: Begin
3264: --
3265: hr_utility.set_location('Entering:'||l_proc, 5);
3266: --
3267: -- check dependency of Code and Rule.
3268: --
3269: if (p_rndg_cd <> 'RL' and
3279:
3280: --
3281: -- Leaving Procedure.
3282: --
3283: hr_utility.set_location('Leaving:'||l_proc,10);
3284: --
3285: end chk_rndg_cd_rl;
3286: --
3287: -- ----------------------------------------------------------------------------
3330: l_proc varchar2(72) := g_package||'chk_ann_rts';
3331: --
3332: Begin
3333: --
3334: hr_utility.set_location('Entering:'||l_proc, 5);
3335: --
3336: -- check dependency of Code and Rule.
3337: --
3338: if (p_prort_mn_ann_elcn_val_cd <> 'RL' and
3373:
3374: --
3375: -- Leaving Procedure.
3376: --
3377: hr_utility.set_location('Leaving:'||l_proc,10);
3378: --
3379: end chk_ann_rts;
3380: --
3381: -- ----------------------------------------------------------------------------
3437: l_cum_id_val number := 0;
3438: --
3439: Begin
3440: --
3441: hr_utility.set_location('Entering:'||l_proc,5);
3442: --
3443: l_cum_id_val := is_id_not_null(p_pgm_id) + is_id_not_null(p_pl_id) +
3444: is_id_not_null(p_plip_id) + is_id_not_null(p_ptip_id) +
3445: is_id_not_null(p_oipl_id) + is_id_not_null(p_cmbn_plip_id) +
3462: fnd_message.set_name('BEN','BEN_91437_ONE_ID_REQD');
3463: fnd_message.raise_error;
3464: --
3465: end if;
3466: hr_utility.set_location('Leaving:'||l_proc,10);
3467: --
3468: End chk_only_one_id;
3469: --
3470: -- ----------------------------------------------------------------------------
3513: and effective_end_date;
3514: --
3515: Begin
3516: --
3517: hr_utility.set_location('Entering:'||l_proc,5);
3518: --
3519: -- If the actual premium that we are trying to attach to the acty_base_rt
3520: -- has a prem_asnmt_cd = 'PROC' then error.
3521: --
3535: close c1;
3536: --
3537: end if;
3538: --
3539: hr_utility.set_location('Leaving:'||l_proc,10);
3540: --
3541: End chk_actual_premium_asnmt_cd;
3542: --
3543: -- ----------------------------------------------------------------------------
3593: and b.effective_end_date;
3594: --
3595: Begin
3596: --
3597: hr_utility.set_location('Entering:'||l_proc, 5);
3598: --
3599: if p_pgm_id is not null and p_rt_usg_cd = 'FLXCR' then
3600: open c1;
3601: fetch c1 into l_dummy;
3617: end if;
3618: close c2;
3619: end if;
3620: --
3621: hr_utility.set_location('Leaving:'||l_proc, 15);
3622: --
3623: End chk_pgm_typ_code;
3624: --
3625: /*-- ----------------------------------------------------------------------------
3663: where a.organization_id = p_organization_id;
3664: --
3665: Begin
3666: --
3667: hr_utility.set_location('Entering:'||l_proc,5);
3668: --
3669: l_api_updating := ben_abr_shd.api_updating
3670: (p_acty_base_rt_id => p_acty_base_rt_id,
3671: p_effective_date => p_effective_date,
3695: close c1;
3696: --
3697: end if;
3698: --
3699: hr_utility.set_location('Leaving:'||l_proc,10);
3700: --
3701: End chk_organization_id;
3702: --
3703: */
3759:
3760: --
3761: Begin
3762: --
3763: hr_utility.set_location('Entering:'||l_proc,5);
3764: --
3765: l_api_updating := ben_abr_shd.api_updating
3766: (p_acty_base_rt_id => p_acty_base_rt_id,
3767: p_effective_date => p_effective_date,
3817: --
3818: End if;
3819: end if ;
3820: --
3821: hr_utility.set_location('Leaving:'||l_proc,10);
3822: --
3823: End chk_pay_rate_grade_rule_id;
3824:
3825:
3867: where currency_code = p_nnmntry_uom;
3868: --
3869: Begin
3870: --
3871: hr_utility.set_location('Entering:'||l_proc,5);
3872: --
3873: l_api_updating := ben_abr_shd.api_updating
3874: (p_acty_base_rt_id => p_acty_base_rt_id,
3875: p_effective_date => p_effective_date,
3909: end if;
3910: --
3911: end if;
3912: --
3913: hr_utility.set_location('Leaving:'||l_proc,10);
3914: --
3915: End chk_nnmntry_uom;
3916: --
3917: -- ----------------------------------------------------------------------------
3955: where a.oab_element_typ_id = p_oab_element_typ_id;
3956: --
3957: Begin
3958: --
3959: hr_utility.set_location('Entering:'||l_proc,5);
3960: --
3961: l_api_updating := ben_abr_shd.api_updating
3962: (p_acty_base_rt_id => p_acty_base_rt_id,
3963: p_effective_date => p_effective_date,
3987: close c1;
3988: --
3989: end if;
3990: --
3991: hr_utility.set_location('Leaving:'||l_proc,10);
3992: --
3993: End chk_oab_element_typ_id; */
3994: --
3995: --
4065: and abr.effective_end_date;
4066: --
4067: Begin
4068: --
4069: hr_utility.set_location('Entering:'||l_proc,5);
4070: --
4071: l_api_updating := ben_abr_shd.api_updating
4072: (p_acty_base_rt_id => p_acty_base_rt_id,
4073: p_effective_date => p_effective_date,
4131: --
4132: end if; -- oipl_id is not null
4133: end if; -- CWBAHE
4134: end if;
4135: hr_utility.set_location('Leaving:'||l_proc,10);
4136: --
4137: End chk_cwb_acty_typ_cd_unique;
4138: --
4139: -- 2940151
4189: and acty_typ_cd = 'GSPSA';
4190: --
4191: Begin
4192: --
4193: hr_utility.set_location('Entering:'||l_proc,5);
4194: --
4195: l_api_updating := ben_abr_shd.api_updating
4196: (p_acty_base_rt_id => p_acty_base_rt_id,
4197: p_effective_date => p_effective_date,
4220:
4221: --
4222: end if;
4223: --
4224: hr_utility.set_location('Leaving:'||l_proc,10);
4225: --
4226: End chk_acty_typ_cd_gsp;
4227: --
4228: -- ----------------------------------------------------------------------------
4241: --
4242:
4243: Begin
4244: --
4245: hr_utility.set_location('Entering:'||l_proc,5);
4246: --
4247:
4248:
4249: if p_element_det_rl is not null and p_acty_typ_cd not like 'CWB%' then
4263: fnd_message.raise_error;
4264: --
4265: end if;
4266: --
4267: hr_utility.set_location('Leaving:'||l_proc,10);
4268: --
4269: End chk_cwb_element_currency;
4270:
4271: -- ----------------------------------------------------------------------------
4319: and effective_end_date >= p_validation_start_date;
4320: --
4321: Begin
4322: --
4323: hr_utility.set_location('Entering: '||l_proc,9);
4324: --
4325: l_curr_uses_varbl_rt_flag := ben_abr_shd.g_old_rec.uses_varbl_rt_flag;
4326: --
4327: If l_curr_uses_varbl_rt_flag = 'N' then
4337: End If;
4338: close c_fut_var_rt_recs;
4339: End if;
4340: --
4341: hr_utility.set_location('Leaving:'||l_proc,15);
4342: --
4343: return l_return_val;
4344: --
4345: End future_var_rt_recs_exist;
4404: l_integrity_error Exception;
4405: l_table_name all_tables.table_name%TYPE;
4406: --
4407: Begin
4408: hr_utility.set_location('Entering:'||l_proc, 5);
4409: --
4410: -- Ensure that the p_datetrack_mode argument is not null
4411: --
4412: hr_api.mandatory_arg_error
4632:
4633: --
4634: End If;
4635: --
4636: hr_utility.set_location(' Leaving:'||l_proc, 10);
4637: Exception
4638: When l_integrity_error Then
4639: --
4640: -- A referential integrity check was violated therefore
4698: l_rows_exist Exception;
4699: l_table_name all_tables.table_name%TYPE;
4700: --
4701: Begin
4702: hr_utility.set_location('Entering:'||l_proc, 5);
4703: --
4704: -- Ensure that the p_datetrack_mode argument is not null
4705: --
4706: hr_api.mandatory_arg_error
4847: End If;
4848:
4849:
4850:
4851: hr_utility.set_location(' Leaving:'||l_proc, 10);
4852: Exception
4853: When l_rows_exist Then
4854: --
4855: -- A referential integrity check was violated therefore
4913: l_api_updating boolean;
4914: --
4915: Begin
4916: --
4917: hr_utility.set_location('Entering:'||l_proc, 5);
4918: --
4919: l_api_updating := ben_abr_shd.api_updating
4920: (p_acty_base_rt_id => p_acty_base_rt_id,
4921: p_effective_date => p_effective_date,
5198:
5199: --
5200: end if;
5201: --
5202: hr_utility.set_location('Leaving:'||l_proc,10);
5203: --
5204: end chk_mlt_cd_dependencies;
5205: -- ----------------------------------------------------------------------------
5206: -- |---------------------< chk_mn_mx_rl >---------------------------|
5249: l_proc varchar2(72) := g_package||'chk_mn_mx_rl';
5250: --
5251: Begin
5252: --
5253: hr_utility.set_location('Entering:'||l_proc, 5);
5254: --
5255: -- p_mn_mx_elcn_rl is mutually exclusive to p_mn_elcn_val, p_mx_elcn_val, p_incrmt_elcn_val and p_dflt_val.
5256: -- mutually exclusive.
5257: if ( p_mn_mx_elcn_rl is not null and p_mn_elcn_val is not null
5320: l_proc VARCHAR2 (72) := g_package || 'chk_code_rule_num';
5321: --
5322: BEGIN
5323: --
5324: hr_utility.set_location ('Entering:' || l_proc, 5);
5325:
5326: --
5327: IF NVL(p_code,'N') <> 'RL' AND p_rule IS NOT NULL
5328: THEN
5353: --
5354: END IF;
5355:
5356: --
5357: hr_utility.set_location ('Leaving:' || l_proc, 10);
5358: --
5359: END chk_code_rule_num;
5360: --
5361: -- Change ends against Bug:5091755
5373:
5374: l_proc varchar2(72) := g_package||'insert_validate';
5375:
5376: Begin
5377: hr_utility.set_location('Entering:'||l_proc, 5);
5378:
5379: -- Call all supporting business operations
5380: --
5381:
5736: --
5737: l_proc varchar2(72) := g_package||'update_validate';
5738: --
5739: Begin
5740: hr_utility.set_location('Entering:'||l_proc, 5);
5741: --
5742: -- Call all supporting business operations
5743: --
5744: --
6114: p_business_group_id => p_rec.business_group_id);
6115: --
6116:
6117:
6118: hr_utility.set_location(' Leaving:'||l_proc, 10);
6119:
6120: End update_validate;
6121:
6122: -- ----------------------------------------------------------------------------
6131: --
6132: l_proc varchar2(72) := g_package||'delete_validate';
6133: --
6134: Begin
6135: hr_utility.set_location('Entering:'||l_proc, 5);
6136: --
6137: -- Call all supporting business operations
6138: --
6139: dt_delete_validate
6141: p_validation_start_date => p_validation_start_date,
6142: p_validation_end_date => p_validation_end_date,
6143: p_acty_base_rt_id => p_rec.acty_base_rt_id);
6144: --
6145: hr_utility.set_location(' Leaving:'||l_proc, 10);
6146: End delete_validate;
6147: --
6148: --
6149: -- ---------------------------------------------------------------------------
6168: l_proc varchar2(72) := g_package||'return_legislation_code';
6169: --
6170: begin
6171: --
6172: hr_utility.set_location('Entering:'|| l_proc, 10);
6173: --
6174: -- Ensure that all the mandatory parameter are not null
6175: --
6176: hr_api.mandatory_arg_error(p_api_name => l_proc,
6193: end if;
6194: --
6195: close csr_leg_code;
6196: --
6197: hr_utility.set_location(' Leaving:'|| l_proc, 20);
6198: --
6199: return l_legislation_code;
6200: --
6201: end return_legislation_code;