45: open csr_itax;
46: fetch csr_itax into l_duplicate;
47: if csr_itax%found then
48: close csr_itax;
49: fnd_message.set_name('PER', 'PER_JP_CON_ITAX_INFO_EXISTS');
50: fnd_message.raise_error;
51: end if;
52: close csr_itax;
53: elsif p_information_type in ('JP_HI_SPOUSE', 'JP_HI_DEPENDENT') then
46: fetch csr_itax into l_duplicate;
47: if csr_itax%found then
48: close csr_itax;
49: fnd_message.set_name('PER', 'PER_JP_CON_ITAX_INFO_EXISTS');
50: fnd_message.raise_error;
51: end if;
52: close csr_itax;
53: elsif p_information_type in ('JP_HI_SPOUSE', 'JP_HI_DEPENDENT') then
54: open csr_si;
54: open csr_si;
55: fetch csr_si into l_duplicate;
56: if csr_si%found then
57: close csr_si;
58: fnd_message.set_name('PER', 'PER_JP_CON_HI_INFO_EXISTS');
59: fnd_message.raise_error;
60: end if;
61: close csr_si;
62: end if;
55: fetch csr_si into l_duplicate;
56: if csr_si%found then
57: close csr_si;
58: fnd_message.set_name('PER', 'PER_JP_CON_HI_INFO_EXISTS');
59: fnd_message.raise_error;
60: end if;
61: close csr_si;
62: end if;
63: --
162: IF cel_itax_info_exists%FOUND THEN
163: --
164: CLOSE cel_itax_info_exists;
165: --
166: fnd_message.set_name(
167: application => 'PER',
168: name => 'PER_JP_CON_ITAX_INFO_EXISTS');
169: --
170: fnd_message.raise_error;
166: fnd_message.set_name(
167: application => 'PER',
168: name => 'PER_JP_CON_ITAX_INFO_EXISTS');
169: --
170: fnd_message.raise_error;
171: --
172: END IF;
173: --
174: CLOSE cel_itax_info_exists;
181: IF cel_hi_info_exists%FOUND THEN
182: --
183: CLOSE cel_hi_info_exists;
184: --
185: fnd_message.set_name(
186: application => 'PER',
187: name => 'PER_JP_CON_HI_INFO_EXISTS');
188: --
189: fnd_message.raise_error;
185: fnd_message.set_name(
186: application => 'PER',
187: name => 'PER_JP_CON_HI_INFO_EXISTS');
188: --
189: fnd_message.raise_error;
190: --
191: END IF;
192: --
193: CLOSE cel_hi_info_exists;
268: IF cel_itax_future_exists%FOUND THEN
269: --
270: CLOSE cel_itax_future_exists;
271: --
272: fnd_message.set_name(
273: application => 'PER',
274: name => 'PER_JP_CON_ITAX_FUTURE_EXISTS');
275: --
276: fnd_message.raise_error;
272: fnd_message.set_name(
273: application => 'PER',
274: name => 'PER_JP_CON_ITAX_FUTURE_EXISTS');
275: --
276: fnd_message.raise_error;
277: --
278: END IF;
279: --
280: CLOSE cel_itax_future_exists;
287: IF cel_hi_future_exists%FOUND THEN
288: --
289: CLOSE cel_hi_future_exists;
290: --
291: fnd_message.set_name(
292: application => 'PER',
293: name => 'PER_JP_CON_HI_FUTURE_EXISTS');
294: --
295: fnd_message.raise_error;
291: fnd_message.set_name(
292: application => 'PER',
293: name => 'PER_JP_CON_HI_FUTURE_EXISTS');
294: --
295: fnd_message.raise_error;
296: --
297: END IF;
298: --
299: CLOSE cel_hi_future_exists;
383: IF cel_itax_future_exists%FOUND THEN
384: --
385: CLOSE cel_itax_future_exists;
386: --
387: fnd_message.set_name(
388: application => 'PER',
389: name => 'PER_JP_CON_ITAX_FUTURE_EXISTS');
390: --
391: fnd_message.raise_error;
387: fnd_message.set_name(
388: application => 'PER',
389: name => 'PER_JP_CON_ITAX_FUTURE_EXISTS');
390: --
391: fnd_message.raise_error;
392: --
393: END IF;
394: --
395: CLOSE cel_itax_future_exists;
402: IF cel_hi_future_exists%FOUND THEN
403: --
404: CLOSE cel_hi_future_exists;
405: --
406: fnd_message.set_name(
407: application => 'PER',
408: name => 'PER_JP_CON_HI_FUTURE_EXISTS');
409: --
410: fnd_message.raise_error;
406: fnd_message.set_name(
407: application => 'PER',
408: name => 'PER_JP_CON_HI_FUTURE_EXISTS');
409: --
410: fnd_message.raise_error;
411: --
412: END IF;
413: --
414: CLOSE cel_hi_future_exists;
487: IF cel_parent_row%FOUND THEN
488: --
489: CLOSE cel_parent_row;
490: --
491: fnd_message.set_name(
492: application => 'PER',
493: name => 'PER_JP_CON_INVALID_REL');
494: --
495: fnd_message.raise_error;
491: fnd_message.set_name(
492: application => 'PER',
493: name => 'PER_JP_CON_INVALID_REL');
494: --
495: fnd_message.raise_error;
496: --
497: END IF;
498: --
499: CLOSE cel_parent_row;
572: CLOSE cel_dependent;
573: --
574: IF l_age < 70 THEN
575: --
576: fnd_message.set_name(
577: application => 'PER',
578: name => 'PER_JP_AGED_PARENT_UNDER_70');
579: --
580: fnd_message.raise_error;
576: fnd_message.set_name(
577: application => 'PER',
578: name => 'PER_JP_AGED_PARENT_UNDER_70');
579: --
580: fnd_message.raise_error;
581: --
582: END IF;
583: --
584: IF l_contact_type = 'S' THEN
582: END IF;
583: --
584: IF l_contact_type = 'S' THEN
585: --
586: fnd_message.set_name(
587: application => 'PER',
588: name => 'PER_JP_AGED_PARENT_SPOUSE');
589: --
590: fnd_message.raise_error;
586: fnd_message.set_name(
587: application => 'PER',
588: name => 'PER_JP_AGED_PARENT_SPOUSE');
589: --
590: fnd_message.raise_error;
591: --
592: END IF;
593: --
594: END IF;
671: CLOSE cel_dependent;
672: --
673: IF l_age < 70 THEN
674: --
675: fnd_message.set_name(
676: application => 'PER',
677: name => 'PER_JP_AGED_PARENT_UNDER_70');
678: --
679: fnd_message.raise_error;
675: fnd_message.set_name(
676: application => 'PER',
677: name => 'PER_JP_AGED_PARENT_UNDER_70');
678: --
679: fnd_message.raise_error;
680: --
681: END IF;
682: --
683: IF l_contact_type = 'S' THEN
681: END IF;
682: --
683: IF l_contact_type = 'S' THEN
684: --
685: fnd_message.set_name(
686: application => 'PER',
687: name => 'PER_JP_AGED_PARENT_SPOUSE');
688: --
689: fnd_message.raise_error;
685: fnd_message.set_name(
686: application => 'PER',
687: name => 'PER_JP_AGED_PARENT_SPOUSE');
688: --
689: fnd_message.raise_error;
690: --
691: END IF;
692: --
693: END IF;