127: if c1%found then
128: close c1;
129: -- Create new message in seed database (Plan Already exists for the
130: -- particular plan id
131: fnd_message.set_name('BEN','BEN_92595_REC_EXISTS');
132: fnd_message.raise_error;
133: end if;
134: close c1;
135:
128: close c1;
129: -- Create new message in seed database (Plan Already exists for the
130: -- particular plan id
131: fnd_message.set_name('BEN','BEN_92595_REC_EXISTS');
132: fnd_message.raise_error;
133: end if;
134: close c1;
135:
136: hr_utility.set_location('Leaving:'||l_proc, 15);
178: (p_pl_pcp_id => p_pl_pcp_id,
179: p_object_version_number => p_object_version_number);
180: --
181: if p_pcp_strt_dt_cd is null then
182: fnd_message.set_name('BEN','BEN_92593_DATA_NULL');
183: fnd_message.set_token('FIELD', 'Start Date Code');
184: fnd_message.raise_error;
185: end if;
186: if (l_api_updating
179: p_object_version_number => p_object_version_number);
180: --
181: if p_pcp_strt_dt_cd is null then
182: fnd_message.set_name('BEN','BEN_92593_DATA_NULL');
183: fnd_message.set_token('FIELD', 'Start Date Code');
184: fnd_message.raise_error;
185: end if;
186: if (l_api_updating
187: and p_pcp_strt_dt_cd <> nvl(ben_pcp_shd.g_old_rec.pcp_strt_dt_cd,hr_api.g_varchar2)
180: --
181: if p_pcp_strt_dt_cd is null then
182: fnd_message.set_name('BEN','BEN_92593_DATA_NULL');
183: fnd_message.set_token('FIELD', 'Start Date Code');
184: fnd_message.raise_error;
185: end if;
186: if (l_api_updating
187: and p_pcp_strt_dt_cd <> nvl(ben_pcp_shd.g_old_rec.pcp_strt_dt_cd,hr_api.g_varchar2)
188: or not l_api_updating)
196: p_effective_date => p_effective_date) then
197: --
198: -- raise error as does not exist as lookup
199: --
200: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
201: fnd_message.set_token('FIELD','p_pcp_strt_dt_cd');
202: fnd_message.set_token('TYPE','BEN_PCP_STRT_DT');
203: fnd_message.raise_error;
204: --
197: --
198: -- raise error as does not exist as lookup
199: --
200: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
201: fnd_message.set_token('FIELD','p_pcp_strt_dt_cd');
202: fnd_message.set_token('TYPE','BEN_PCP_STRT_DT');
203: fnd_message.raise_error;
204: --
205: end if;
198: -- raise error as does not exist as lookup
199: --
200: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
201: fnd_message.set_token('FIELD','p_pcp_strt_dt_cd');
202: fnd_message.set_token('TYPE','BEN_PCP_STRT_DT');
203: fnd_message.raise_error;
204: --
205: end if;
206: --
199: --
200: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
201: fnd_message.set_token('FIELD','p_pcp_strt_dt_cd');
202: fnd_message.set_token('TYPE','BEN_PCP_STRT_DT');
203: fnd_message.raise_error;
204: --
205: end if;
206: --
207: end if;
255: p_object_version_number => p_object_version_number);
256: --
257: --Ask Sharmista what is the token name for this CD
258: if p_pcp_dsgn_cd is null then
259: fnd_message.set_name('BEN','BEN_92593_DATA_NULL');
260: fnd_message.set_token('FIELD', 'Designation Code');
261: fnd_message.raise_error;
262: end if;
263: if (l_api_updating
256: --
257: --Ask Sharmista what is the token name for this CD
258: if p_pcp_dsgn_cd is null then
259: fnd_message.set_name('BEN','BEN_92593_DATA_NULL');
260: fnd_message.set_token('FIELD', 'Designation Code');
261: fnd_message.raise_error;
262: end if;
263: if (l_api_updating
264: and p_pcp_dsgn_cd <> nvl(ben_pcp_shd.g_old_rec.pcp_dsgn_cd,hr_api.g_varchar2)
257: --Ask Sharmista what is the token name for this CD
258: if p_pcp_dsgn_cd is null then
259: fnd_message.set_name('BEN','BEN_92593_DATA_NULL');
260: fnd_message.set_token('FIELD', 'Designation Code');
261: fnd_message.raise_error;
262: end if;
263: if (l_api_updating
264: and p_pcp_dsgn_cd <> nvl(ben_pcp_shd.g_old_rec.pcp_dsgn_cd,hr_api.g_varchar2)
265: or not l_api_updating)
273: p_effective_date => p_effective_date) then
274: --
275: -- raise error as does not exist as lookup
276: --
277: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
278: fnd_message.set_token('FIELD','p_pcp_dsgn_cd');
279: fnd_message.set_token('TYPE','BEN_PCP_DSGN');
280: fnd_message.raise_error;
281: --
274: --
275: -- raise error as does not exist as lookup
276: --
277: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
278: fnd_message.set_token('FIELD','p_pcp_dsgn_cd');
279: fnd_message.set_token('TYPE','BEN_PCP_DSGN');
280: fnd_message.raise_error;
281: --
282: end if;
275: -- raise error as does not exist as lookup
276: --
277: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
278: fnd_message.set_token('FIELD','p_pcp_dsgn_cd');
279: fnd_message.set_token('TYPE','BEN_PCP_DSGN');
280: fnd_message.raise_error;
281: --
282: end if;
283: --
276: --
277: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
278: fnd_message.set_token('FIELD','p_pcp_dsgn_cd');
279: fnd_message.set_token('TYPE','BEN_PCP_DSGN');
280: fnd_message.raise_error;
281: --
282: end if;
283: --
284: end if;
331: p_object_version_number => p_object_version_number);
332: --
333: --Ask Sharmista what is the token name for this CD
334: if p_pcp_dpnt_dsgn_cd is null then
335: fnd_message.set_name('BEN','BEN_92593_DATA_NULL');
336: fnd_message.set_token('FIELD', 'Dependent Designation Code');
337: fnd_message.raise_error;
338: end if;
339: if (l_api_updating
332: --
333: --Ask Sharmista what is the token name for this CD
334: if p_pcp_dpnt_dsgn_cd is null then
335: fnd_message.set_name('BEN','BEN_92593_DATA_NULL');
336: fnd_message.set_token('FIELD', 'Dependent Designation Code');
337: fnd_message.raise_error;
338: end if;
339: if (l_api_updating
340: and p_pcp_dpnt_dsgn_cd <> nvl(ben_pcp_shd.g_old_rec.pcp_dpnt_dsgn_cd,hr_api.g_varchar2)
333: --Ask Sharmista what is the token name for this CD
334: if p_pcp_dpnt_dsgn_cd is null then
335: fnd_message.set_name('BEN','BEN_92593_DATA_NULL');
336: fnd_message.set_token('FIELD', 'Dependent Designation Code');
337: fnd_message.raise_error;
338: end if;
339: if (l_api_updating
340: and p_pcp_dpnt_dsgn_cd <> nvl(ben_pcp_shd.g_old_rec.pcp_dpnt_dsgn_cd,hr_api.g_varchar2)
341: or not l_api_updating)
349: p_effective_date => p_effective_date) then
350: --
351: -- raise error as does not exist as lookup
352: --
353: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
354: fnd_message.set_token('FIELD','p_pcp_dpnt_dsgn_cd');
355: fnd_message.set_token('TYPE','BEN_PCP_DPNT_DSGN');
356: fnd_message.raise_error;
357: --
350: --
351: -- raise error as does not exist as lookup
352: --
353: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
354: fnd_message.set_token('FIELD','p_pcp_dpnt_dsgn_cd');
355: fnd_message.set_token('TYPE','BEN_PCP_DPNT_DSGN');
356: fnd_message.raise_error;
357: --
358: end if;
351: -- raise error as does not exist as lookup
352: --
353: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
354: fnd_message.set_token('FIELD','p_pcp_dpnt_dsgn_cd');
355: fnd_message.set_token('TYPE','BEN_PCP_DPNT_DSGN');
356: fnd_message.raise_error;
357: --
358: end if;
359: --
352: --
353: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
354: fnd_message.set_token('FIELD','p_pcp_dpnt_dsgn_cd');
355: fnd_message.set_token('TYPE','BEN_PCP_DPNT_DSGN');
356: fnd_message.raise_error;
357: --
358: end if;
359: --
360: end if;
420: p_effective_date => p_effective_date) then
421: --
422: -- raise error as does not exist as lookup
423: --
424: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
425: fnd_message.set_token('FIELD','p_pcp_rpstry_flag');
426: fnd_message.set_token('TYPE','YES_NO');
427: fnd_message.raise_error;
428: --
421: --
422: -- raise error as does not exist as lookup
423: --
424: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
425: fnd_message.set_token('FIELD','p_pcp_rpstry_flag');
426: fnd_message.set_token('TYPE','YES_NO');
427: fnd_message.raise_error;
428: --
429: end if;
422: -- raise error as does not exist as lookup
423: --
424: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
425: fnd_message.set_token('FIELD','p_pcp_rpstry_flag');
426: fnd_message.set_token('TYPE','YES_NO');
427: fnd_message.raise_error;
428: --
429: end if;
430: --
423: --
424: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
425: fnd_message.set_token('FIELD','p_pcp_rpstry_flag');
426: fnd_message.set_token('TYPE','YES_NO');
427: fnd_message.raise_error;
428: --
429: end if;
430: --
431: end if;
491: p_effective_date => p_effective_date) then
492: --
493: -- raise error as does not exist as lookup
494: --
495: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
496: fnd_message.set_token('FIELD','p_pcp_can_keep_flag');
497: fnd_message.set_token('TYPE','YES_NO');
498: fnd_message.raise_error;
499: --
492: --
493: -- raise error as does not exist as lookup
494: --
495: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
496: fnd_message.set_token('FIELD','p_pcp_can_keep_flag');
497: fnd_message.set_token('TYPE','YES_NO');
498: fnd_message.raise_error;
499: --
500: end if;
493: -- raise error as does not exist as lookup
494: --
495: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
496: fnd_message.set_token('FIELD','p_pcp_can_keep_flag');
497: fnd_message.set_token('TYPE','YES_NO');
498: fnd_message.raise_error;
499: --
500: end if;
501: --
494: --
495: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
496: fnd_message.set_token('FIELD','p_pcp_can_keep_flag');
497: fnd_message.set_token('TYPE','YES_NO');
498: fnd_message.raise_error;
499: --
500: end if;
501: --
502: end if;
562: p_effective_date => p_effective_date) then
563: --
564: -- raise error as does not exist as lookup
565: --
566: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
567: fnd_message.set_token('FIELD','p_pcp_radius_warn_flag');
568: fnd_message.set_token('TYPE','YES_NO');
569: fnd_message.raise_error;
570: --
563: --
564: -- raise error as does not exist as lookup
565: --
566: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
567: fnd_message.set_token('FIELD','p_pcp_radius_warn_flag');
568: fnd_message.set_token('TYPE','YES_NO');
569: fnd_message.raise_error;
570: --
571: end if;
564: -- raise error as does not exist as lookup
565: --
566: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
567: fnd_message.set_token('FIELD','p_pcp_radius_warn_flag');
568: fnd_message.set_token('TYPE','YES_NO');
569: fnd_message.raise_error;
570: --
571: end if;
572: --
565: --
566: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
567: fnd_message.set_token('FIELD','p_pcp_radius_warn_flag');
568: fnd_message.set_token('TYPE','YES_NO');
569: fnd_message.raise_error;
570: --
571: end if;
572: --
573: end if;
621: if (p_pcp_radius is not null or p_pcp_radius_uom is not null) then
622: --
623: -- Raise error as pcp_radius, pcp_radius_uom are null
624: --
625: fnd_message.set_name('BEN','BEN_92560_RADIUS_PARM');
626: fnd_message.raise_error;
627: end if;
628: end if;
629:
622: --
623: -- Raise error as pcp_radius, pcp_radius_uom are null
624: --
625: fnd_message.set_name('BEN','BEN_92560_RADIUS_PARM');
626: fnd_message.raise_error;
627: end if;
628: end if;
629:
630: hr_utility.set_location('Leaving:'||l_proc, 10);
685: if ((l_svgs_pl_flag = 'Y')
686: or (l_imptd_incm_calc_cd is NOT NULL)
687: or (l_invk_flx_cr_pl_flag = 'Y')
688: or (l_invk_dcln_prtn_pl_flag = 'Y')) then
689: fnd_message.set_name('BEN','BEN_92562_SVG_INC');
690: fnd_message.raise_error;
691: end if;
692: hr_utility.set_location('Leaving:'||l_proc, 15);
693: End chk_pl_pcp_record;
686: or (l_imptd_incm_calc_cd is NOT NULL)
687: or (l_invk_flx_cr_pl_flag = 'Y')
688: or (l_invk_dcln_prtn_pl_flag = 'Y')) then
689: fnd_message.set_name('BEN','BEN_92562_SVG_INC');
690: fnd_message.raise_error;
691: end if;
692: hr_utility.set_location('Leaving:'||l_proc, 15);
693: End chk_pl_pcp_record;
694:
732: if p_pcp_dsgn_cd is null or p_pcp_dpnt_dsgn_cd is null then
733: --
734: -- Raise error as pcp_dsgn_cd and pcp_dpnt_dsgn_cd should not be null
735: --
736: fnd_message.set_name('BEN','BEN_92563_DSGN_REQ');
737: fnd_message.raise_error;
738: end if;
739:
740: hr_utility.set_location('Leaving:'||l_proc, 10);
733: --
734: -- Raise error as pcp_dsgn_cd and pcp_dpnt_dsgn_cd should not be null
735: --
736: fnd_message.set_name('BEN','BEN_92563_DSGN_REQ');
737: fnd_message.raise_error;
738: end if;
739:
740: hr_utility.set_location('Leaving:'||l_proc, 10);
741: --
784: IF p_pcp_rpstry_flag = 'Y' then
785: open c1;
786: fetch c1 into l_dummy;
787: if c1%notfound then
788: fnd_message.set_name('BEN','BEN_92564_PCP_LOC');
789: fnd_message.raise_error;
790: end if;
791: close c1;
792: END IF;
785: open c1;
786: fetch c1 into l_dummy;
787: if c1%notfound then
788: fnd_message.set_name('BEN','BEN_92564_PCP_LOC');
789: fnd_message.raise_error;
790: end if;
791: close c1;
792: END IF;
793:
836: close csr_sec_grp;
837: --
838: -- The primary key is invalid therefore we must error
839: --
840: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
841: fnd_message.raise_error;
842: --
843: end if;
844: close csr_sec_grp;
837: --
838: -- The primary key is invalid therefore we must error
839: --
840: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
841: fnd_message.raise_error;
842: --
843: end if;
844: close csr_sec_grp;
845: --
909: --
910: -- The primary key is invalid therefore we must error
911: --
912: close csr_leg_code;
913: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
914: fnd_message.raise_error;
915: end if;
916: hr_utility.set_location(l_proc,30);
917: --
910: -- The primary key is invalid therefore we must error
911: --
912: close csr_leg_code;
913: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
914: fnd_message.raise_error;
915: end if;
916: hr_utility.set_location(l_proc,30);
917: --
918: -- Set the global variables so the values are
1146: IF NOT ben_pcp_shd.api_updating
1147: (p_pl_pcp_id => p_rec.pl_pcp_id
1148: ,p_object_version_number => p_rec.object_version_number
1149: ) THEN
1150: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
1151: fnd_message.set_token('PROCEDURE ', l_proc);
1152: fnd_message.set_token('STEP ', '5');
1153: fnd_message.raise_error;
1154: END IF;
1147: (p_pl_pcp_id => p_rec.pl_pcp_id
1148: ,p_object_version_number => p_rec.object_version_number
1149: ) THEN
1150: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
1151: fnd_message.set_token('PROCEDURE ', l_proc);
1152: fnd_message.set_token('STEP ', '5');
1153: fnd_message.raise_error;
1154: END IF;
1155: --
1148: ,p_object_version_number => p_rec.object_version_number
1149: ) THEN
1150: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
1151: fnd_message.set_token('PROCEDURE ', l_proc);
1152: fnd_message.set_token('STEP ', '5');
1153: fnd_message.raise_error;
1154: END IF;
1155: --
1156: -- EDIT_HERE: Add checks to ensure non-updateable args have
1149: ) THEN
1150: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
1151: fnd_message.set_token('PROCEDURE ', l_proc);
1152: fnd_message.set_token('STEP ', '5');
1153: fnd_message.raise_error;
1154: END IF;
1155: --
1156: -- EDIT_HERE: Add checks to ensure non-updateable args have
1157: -- not been updated.