233: IF NOT irc_inp_shd.api_updating
234: (p_notification_preference_id => p_rec.notification_preference_id
235: ,p_object_version_number => p_rec.object_version_number
236: ) THEN
237: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
238: fnd_message.set_token('PROCEDURE ', l_proc);
239: fnd_message.set_token('STEP ', '5');
240: fnd_message.raise_error;
241: END IF;
234: (p_notification_preference_id => p_rec.notification_preference_id
235: ,p_object_version_number => p_rec.object_version_number
236: ) THEN
237: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
238: fnd_message.set_token('PROCEDURE ', l_proc);
239: fnd_message.set_token('STEP ', '5');
240: fnd_message.raise_error;
241: END IF;
242: --
235: ,p_object_version_number => p_rec.object_version_number
236: ) THEN
237: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
238: fnd_message.set_token('PROCEDURE ', l_proc);
239: fnd_message.set_token('STEP ', '5');
240: fnd_message.raise_error;
241: END IF;
242: --
243: if nvl(p_rec.notification_preference_id, hr_api.g_number) <>
236: ) THEN
237: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
238: fnd_message.set_token('PROCEDURE ', l_proc);
239: fnd_message.set_token('STEP ', '5');
240: fnd_message.raise_error;
241: END IF;
242: --
243: if nvl(p_rec.notification_preference_id, hr_api.g_number) <>
244: nvl(irc_inp_shd.g_old_rec.notification_preference_id, hr_api.g_number)
301: fetch l_person into l_party_id;
302: if l_person%notfound
303: then
304: close l_person;
305: fnd_message.set_name('PER','IRC_412157_PARTY_PERS_MISMTCH');
306: fnd_message.raise_error;
307: end if;
308: close l_person;
309: if p_party_id is not null then
302: if l_person%notfound
303: then
304: close l_person;
305: fnd_message.set_name('PER','IRC_412157_PARTY_PERS_MISMTCH');
306: fnd_message.raise_error;
307: end if;
308: close l_person;
309: if p_party_id is not null then
310: if p_party_id<>l_party_id then
307: end if;
308: close l_person;
309: if p_party_id is not null then
310: if p_party_id<>l_party_id then
311: fnd_message.set_name('PER','IRC_412033_RTM_INV_PARTY_ID');
312: fnd_message.raise_error;
313: end if;
314: else
315: p_party_id:=l_party_id;
308: close l_person;
309: if p_party_id is not null then
310: if p_party_id<>l_party_id then
311: fnd_message.set_name('PER','IRC_412033_RTM_INV_PARTY_ID');
312: fnd_message.raise_error;
313: end if;
314: else
315: p_party_id:=l_party_id;
316: end if;
397: hr_utility.set_location(l_proc,20);
398: --
399: if csr_party_id%notfound then
400: close csr_party_id;
401: fnd_message.set_name('PER','IRC_412000_BAD_PARTY_PERSON_ID');
402: fnd_message.raise_error;
403: end if;
404: --
405: hr_utility.set_location(l_proc,30);
398: --
399: if csr_party_id%notfound then
400: close csr_party_id;
401: fnd_message.set_name('PER','IRC_412000_BAD_PARTY_PERSON_ID');
402: fnd_message.raise_error;
403: end if;
404: --
405: hr_utility.set_location(l_proc,30);
406: --
412: hr_utility.set_location(l_proc,40);
413: --
414: if csr_chk_inp_pk%found then
415: close csr_chk_inp_pk;
416: fnd_message.set_name('PER','HR_6123_ALL_UNIQUE_NAME');
417: fnd_message.set_token('INFORMATION_TYPE','PARTY ID');
418: fnd_message.raise_error;
419: end if;
420: --
413: --
414: if csr_chk_inp_pk%found then
415: close csr_chk_inp_pk;
416: fnd_message.set_name('PER','HR_6123_ALL_UNIQUE_NAME');
417: fnd_message.set_token('INFORMATION_TYPE','PARTY ID');
418: fnd_message.raise_error;
419: end if;
420: --
421: close csr_chk_inp_pk;
414: if csr_chk_inp_pk%found then
415: close csr_chk_inp_pk;
416: fnd_message.set_name('PER','HR_6123_ALL_UNIQUE_NAME');
417: fnd_message.set_token('INFORMATION_TYPE','PARTY ID');
418: fnd_message.raise_error;
419: end if;
420: --
421: close csr_chk_inp_pk;
422: --
520: hr_utility.set_location(l_proc,50);
521: --
522: if csr_address_id%notfound then
523: close csr_address_id;
524: fnd_message.set_name('PER','IRC_412001_BAD_ADDRESS_ID');
525: fnd_message.raise_error;
526: end if;
527: --
528: hr_utility.set_location(l_proc,60);
521: --
522: if csr_address_id%notfound then
523: close csr_address_id;
524: fnd_message.set_name('PER','IRC_412001_BAD_ADDRESS_ID');
525: fnd_message.raise_error;
526: end if;
527: --
528: hr_utility.set_location(l_proc,60);
529: --
614: --
615: hr_utility.set_location(l_proc,30);
616: --
617: if (p_matching_jobs not in ('Y','N')) then
618: fnd_message.set_name('PER','IRC_412002_BAD_MATCHING_JOBS');
619: fnd_message.raise_error;
620: end if;
621: end if;
622: --
615: hr_utility.set_location(l_proc,30);
616: --
617: if (p_matching_jobs not in ('Y','N')) then
618: fnd_message.set_name('PER','IRC_412002_BAD_MATCHING_JOBS');
619: fnd_message.raise_error;
620: end if;
621: end if;
622: --
623: hr_utility.set_location(' Leaving:'||l_proc,40);
706: if hr_api.not_exists_in_hr_lookups
707: ( p_effective_date => p_effective_date
708: , p_lookup_type => 'IRC_MESSAGE_FREQ'
709: , p_lookup_code => p_matching_job_freq) then
710: fnd_message.set_name('PER','IRC_412003_BAD_MATCH_JOB_FREQ');
711: fnd_message.raise_error;
712: end if;
713: end if;
714: --
707: ( p_effective_date => p_effective_date
708: , p_lookup_type => 'IRC_MESSAGE_FREQ'
709: , p_lookup_code => p_matching_job_freq) then
710: fnd_message.set_name('PER','IRC_412003_BAD_MATCH_JOB_FREQ');
711: fnd_message.raise_error;
712: end if;
713: end if;
714: --
715: hr_utility.set_location(' Leaving:'||l_proc,40);
791: --
792: hr_utility.set_location(l_proc,30);
793: --
794: if p_receive_info_mail not in ('Y','N') then
795: fnd_message.set_name('PER','IRC_412004_BAD_REC_INFO_MAIL');
796: fnd_message.raise_error;
797: end if;
798: end if;
799: --
792: hr_utility.set_location(l_proc,30);
793: --
794: if p_receive_info_mail not in ('Y','N') then
795: fnd_message.set_name('PER','IRC_412004_BAD_REC_INFO_MAIL');
796: fnd_message.raise_error;
797: end if;
798: end if;
799: --
800: hr_utility.set_location(' Leaving:'||l_proc,40);
873: and nvl(p_allow_access, hr_api.g_varchar2)
874: <> nvl(irc_inp_shd.g_old_rec.allow_access, hr_api.g_varchar2))
875: or (not l_api_updating) then
876: if p_allow_access not in ('Y','N') then
877: fnd_message.set_name('PER','IRC_412005_BAD_ALLOW_ACCESS');
878: fnd_message.raise_error;
879: end if;
880: end if;
881: --
874: <> nvl(irc_inp_shd.g_old_rec.allow_access, hr_api.g_varchar2))
875: or (not l_api_updating) then
876: if p_allow_access not in ('Y','N') then
877: fnd_message.set_name('PER','IRC_412005_BAD_ALLOW_ACCESS');
878: fnd_message.raise_error;
879: end if;
880: end if;
881: --
882: hr_utility.set_location(' Leaving:'||l_proc,30);
945: hr_utility.set_location(l_proc,20);
946:
947: if csr_agency_id%notfound then
948: close csr_agency_id;
949: fnd_message.set_name('PER','IRC_BAD_AGENCY_ID');
950: fnd_message.raise_error;
951: end if;
952: --
953: hr_utility.set_location(l_proc,30);
946:
947: if csr_agency_id%notfound then
948: close csr_agency_id;
949: fnd_message.set_name('PER','IRC_BAD_AGENCY_ID');
950: fnd_message.raise_error;
951: end if;
952: --
953: hr_utility.set_location(l_proc,30);
954: --
1044: --
1045: if csr_attempt_exists%notfound then
1046: close csr_attempt_exists;
1047: hr_utility.set_location(l_proc,50);
1048: fnd_message.set_name('PER','IRC_412233_INV_OTA_ATTEMPT');
1049: fnd_message.raise_error;
1050: else
1051: close csr_attempt_exists;
1052: end if;
1045: if csr_attempt_exists%notfound then
1046: close csr_attempt_exists;
1047: hr_utility.set_location(l_proc,50);
1048: fnd_message.set_name('PER','IRC_412233_INV_OTA_ATTEMPT');
1049: fnd_message.raise_error;
1050: else
1051: close csr_attempt_exists;
1052: end if;
1053: --