109: if c1%found then
110: --
111: close c1;
112: --
113: fnd_message.set_name('BEN','BEN_94261_PPV_DUP');
114: fnd_message.raise_error;
115: --
116: else
117: --
110: --
111: close c1;
112: --
113: fnd_message.set_name('BEN','BEN_94261_PPV_DUP');
114: fnd_message.raise_error;
115: --
116: else
117: --
118: close c1;
125: if c2%found then
126: --
127: close c2;
128: --
129: fnd_message.set_name('BEN','BEN_94261_PPV_DUP');
130: fnd_message.raise_error;
131: --
132: else
133: --
126: --
127: close c2;
128: --
129: fnd_message.set_name('BEN','BEN_94261_PPV_DUP');
130: fnd_message.raise_error;
131: --
132: else
133: --
134: close c2;
288: --
289: -- raise error
290: --
291: --
292: fnd_message.set_name('BEN','BEN_91471_FORMULA_NOT_FOUND');
293: fnd_message.set_token('ID',p_prtl_mo_prortn_rl);
294: fnd_message.set_token('TYPE_ID',-528);
295: fnd_message.raise_error;
296: --
289: -- raise error
290: --
291: --
292: fnd_message.set_name('BEN','BEN_91471_FORMULA_NOT_FOUND');
293: fnd_message.set_token('ID',p_prtl_mo_prortn_rl);
294: fnd_message.set_token('TYPE_ID',-528);
295: fnd_message.raise_error;
296: --
297: end if;
290: --
291: --
292: fnd_message.set_name('BEN','BEN_91471_FORMULA_NOT_FOUND');
293: fnd_message.set_token('ID',p_prtl_mo_prortn_rl);
294: fnd_message.set_token('TYPE_ID',-528);
295: fnd_message.raise_error;
296: --
297: end if;
298: --
291: --
292: fnd_message.set_name('BEN','BEN_91471_FORMULA_NOT_FOUND');
293: fnd_message.set_token('ID',p_prtl_mo_prortn_rl);
294: fnd_message.set_token('TYPE_ID',-528);
295: fnd_message.raise_error;
296: --
297: end if;
298: --
299: close c1;
385: --
386: -- Unless Rounding Code = Rule, Rounding rule must be blank.
387: -- if nvl(p_rndg_cd,hr_api.g_varchar2) <> 'RL' and p_rndg_rl is not null then
388: --
389: -- fnd_message.set_name('BEN', 'BEN_91043_RNDG_RL_NOT_NULL');
390: -- fnd_message.raise_error;
391: --
392: -- elsif nvl(p_rndg_cd,hr_api.g_varchar2) = 'RL' and p_rndg_rl is null then
393: --
386: -- Unless Rounding Code = Rule, Rounding rule must be blank.
387: -- if nvl(p_rndg_cd,hr_api.g_varchar2) <> 'RL' and p_rndg_rl is not null then
388: --
389: -- fnd_message.set_name('BEN', 'BEN_91043_RNDG_RL_NOT_NULL');
390: -- fnd_message.raise_error;
391: --
392: -- elsif nvl(p_rndg_cd,hr_api.g_varchar2) = 'RL' and p_rndg_rl is null then
393: --
394: -- fnd_message.set_name('BEN', 'BEN_92340_RNDG_RL_NULL');
390: -- fnd_message.raise_error;
391: --
392: -- elsif nvl(p_rndg_cd,hr_api.g_varchar2) = 'RL' and p_rndg_rl is null then
393: --
394: -- fnd_message.set_name('BEN', 'BEN_92340_RNDG_RL_NULL');
395: -- fnd_message.raise_error;
396: --
397: -- end if;
398: --
391: --
392: -- elsif nvl(p_rndg_cd,hr_api.g_varchar2) = 'RL' and p_rndg_rl is null then
393: --
394: -- fnd_message.set_name('BEN', 'BEN_92340_RNDG_RL_NULL');
395: -- fnd_message.raise_error;
396: --
397: -- end if;
398: --
399: end if;
440: hr_utility.set_location('Entering:'||l_proc, 5);
441: --
442: if (p_rndg_cd <> 'RL' and p_rndg_rl is not null)
443: then
444: fnd_message.set_name('BEN', 'BEN_91043_RNDG_RL_NOT_NULL');
445: fnd_message.raise_error;
446: end if;
447:
448: if (p_rndg_cd = 'RL' and p_rndg_rl is null)
441: --
442: if (p_rndg_cd <> 'RL' and p_rndg_rl is not null)
443: then
444: fnd_message.set_name('BEN', 'BEN_91043_RNDG_RL_NOT_NULL');
445: fnd_message.raise_error;
446: end if;
447:
448: if (p_rndg_cd = 'RL' and p_rndg_rl is null)
449: then
446: end if;
447:
448: if (p_rndg_cd = 'RL' and p_rndg_rl is null)
449: then
450: fnd_message.set_name('BEN', 'BEN_92340_RNDG_RL_NULL');
451: fnd_message.raise_error;
452: end if;
453: --
454: -- Leaving Procedure.
447:
448: if (p_rndg_cd = 'RL' and p_rndg_rl is null)
449: then
450: fnd_message.set_name('BEN', 'BEN_92340_RNDG_RL_NULL');
451: fnd_message.raise_error;
452: end if;
453: --
454: -- Leaving Procedure.
455: --
514: p_effective_date => p_effective_date) then
515: --
516: -- raise error as does not exist as lookup
517: --
518: fnd_message.set_name('BEN','BEN_92183_INL_SRT_R_ST_CVG_CD');
519: fnd_message.raise_error;
520: --
521: end if;
522: --
515: --
516: -- raise error as does not exist as lookup
517: --
518: fnd_message.set_name('BEN','BEN_92183_INL_SRT_R_ST_CVG_CD');
519: fnd_message.raise_error;
520: --
521: end if;
522: --
523: end if;
589: --
590: -- Bug No 4419185
591: --
592: if (p_pct_val <0 or p_pct_val > 100) then
593: fnd_message.set_name('BEN', 'BEN_94263_INVALID_PCT_VAL');
594: fnd_message.raise_error;
595: end if;
596: --
597: if (p_prtl_mo_prortn_rl is not null and p_pct_val is not null
590: -- Bug No 4419185
591: --
592: if (p_pct_val <0 or p_pct_val > 100) then
593: fnd_message.set_name('BEN', 'BEN_94263_INVALID_PCT_VAL');
594: fnd_message.raise_error;
595: end if;
596: --
597: if (p_prtl_mo_prortn_rl is not null and p_pct_val is not null
598: and p_prorate_by_day_to_mon_flag = 'N')
596: --
597: if (p_prtl_mo_prortn_rl is not null and p_pct_val is not null
598: and p_prorate_by_day_to_mon_flag = 'N')
599: then
600: fnd_message.set_name('BEN', 'BEN_92267_PRORTN_RL_PCT_VAL1');
601: fnd_message.raise_error;
602: end if;
603: --
604: if (p_prtl_mo_prortn_rl is null and p_pct_val is null and
597: if (p_prtl_mo_prortn_rl is not null and p_pct_val is not null
598: and p_prorate_by_day_to_mon_flag = 'N')
599: then
600: fnd_message.set_name('BEN', 'BEN_92267_PRORTN_RL_PCT_VAL1');
601: fnd_message.raise_error;
602: end if;
603: --
604: if (p_prtl_mo_prortn_rl is null and p_pct_val is null and
605: p_prorate_by_day_to_mon_flag = 'N') then
602: end if;
603: --
604: if (p_prtl_mo_prortn_rl is null and p_pct_val is null and
605: p_prorate_by_day_to_mon_flag = 'N') then
606: fnd_message.set_name('BEN', 'BEN_92268_PRORTN_RL_PCT_VAL2');
607: fnd_message.raise_error;
608: end if;
609: --
610: -- Bug No 4418762
603: --
604: if (p_prtl_mo_prortn_rl is null and p_pct_val is null and
605: p_prorate_by_day_to_mon_flag = 'N') then
606: fnd_message.set_name('BEN', 'BEN_92268_PRORTN_RL_PCT_VAL2');
607: fnd_message.raise_error;
608: end if;
609: --
610: -- Bug No 4418762
611: --
612: if (p_prtl_mo_prortn_rl is not null or p_pct_val is not null) then
613: open chk_overlap;
614: fetch chk_overlap into l_dummy;
615: if chk_overlap%FOUND then
616: fnd_message.set_name('BEN', 'BEN_94262_PRORATE_FLAG_PCT_VAL');
617: fnd_message.raise_error;
618: end if;
619: close chk_overlap;
620: end if;
613: open chk_overlap;
614: fetch chk_overlap into l_dummy;
615: if chk_overlap%FOUND then
616: fnd_message.set_name('BEN', 'BEN_94262_PRORATE_FLAG_PCT_VAL');
617: fnd_message.raise_error;
618: end if;
619: close chk_overlap;
620: end if;
621: --
665: and (p_from_dy_mo_num > p_to_dy_mo_num) then
666: --
667: -- raise error as is not a valid combination
668: --
669: fnd_message.set_name('BEN','BEN_92269_MIN_LESS_NOT_EQ_MAX');
670: fnd_message.raise_error;
671: --
672: end if;
673: --
666: --
667: -- raise error as is not a valid combination
668: --
669: fnd_message.set_name('BEN','BEN_92269_MIN_LESS_NOT_EQ_MAX');
670: fnd_message.raise_error;
671: --
672: end if;
673: --
674: hr_utility.set_location('Leaving:'||l_proc, 5);
753: -- field is not greater than num_day_month
754: --
755: if (p_to_dy_mo_num > p_num_days_month) then
756: --
757: fnd_message.set_name('BEN','BEN_94247_INVALID_TO_DATE');
758: fnd_message.raise_error;
759: --
760: end if;
761: --
754: --
755: if (p_to_dy_mo_num > p_num_days_month) then
756: --
757: fnd_message.set_name('BEN','BEN_94247_INVALID_TO_DATE');
758: fnd_message.raise_error;
759: --
760: end if;
761: --
762: open c1;
765: close c1;
766: -- Bug 4366086 : Handled complete overlap cases
767: if ((p_from_dy_mo_num <= l_to_day) and (p_to_dy_mo_num >= l_from_day)) then
768: --
769: fnd_message.set_name('BEN','BEN_92305_MAY_NOT_OVERLAP');
770: fnd_message.raise_error;
771: --
772: end if;
773: end if;
766: -- Bug 4366086 : Handled complete overlap cases
767: if ((p_from_dy_mo_num <= l_to_day) and (p_to_dy_mo_num >= l_from_day)) then
768: --
769: fnd_message.set_name('BEN','BEN_92305_MAY_NOT_OVERLAP');
770: fnd_message.raise_error;
771: --
772: end if;
773: end if;
774: --
778: close c2;
779: if l_strt_r_stp_cd = 'STRT' or l_strt_r_stp_cd = 'STP' then
780: if p_strt_r_stp_cvg_cd = 'ETHR' then
781: --
782: fnd_message.set_name('BEN','BEN_92306_MAY_NOT_SELECT_ETHR');
783: fnd_message.raise_error;
784: --
785: end if;
786: elsif l_strt_r_stp_cd = 'ETHR' then
779: if l_strt_r_stp_cd = 'STRT' or l_strt_r_stp_cd = 'STP' then
780: if p_strt_r_stp_cvg_cd = 'ETHR' then
781: --
782: fnd_message.set_name('BEN','BEN_92306_MAY_NOT_SELECT_ETHR');
783: fnd_message.raise_error;
784: --
785: end if;
786: elsif l_strt_r_stp_cd = 'ETHR' then
787: if p_strt_r_stp_cvg_cd = 'STRT' or p_strt_r_stp_cvg_cd = 'STP' then
785: end if;
786: elsif l_strt_r_stp_cd = 'ETHR' then
787: if p_strt_r_stp_cvg_cd = 'STRT' or p_strt_r_stp_cvg_cd = 'STP' then
788: --
789: fnd_message.set_name('BEN','BEN_92307_CANNOT_PICK_STRT_STP');
790: fnd_message.raise_error;
791: --
792: end if;
793: end if;
786: elsif l_strt_r_stp_cd = 'ETHR' then
787: if p_strt_r_stp_cvg_cd = 'STRT' or p_strt_r_stp_cvg_cd = 'STP' then
788: --
789: fnd_message.set_name('BEN','BEN_92307_CANNOT_PICK_STRT_STP');
790: fnd_message.raise_error;
791: --
792: end if;
793: end if;
794: end if;