40: (p_segment1 in pay_external_accounts.segment1%type) is
41: --
42: cursor hlsel is
43: select null
44: from hr_lookups
45: where lookup_type = 'GB_BANKS'
46: and lookup_code = p_segment1;
47: --
48: l_proc varchar2(72) := g_package||'chk_gb_segment1';
504: -- Post Failure:
505: -- If any of the following cases are true then an application error will
506: -- be raised:
507: -- a) p_segment8 cannot exceed 20 in length.
508: -- b) p_segment8 must exist in hr_lookups where lookup_type =
509: -- 'GB_COUNTRY'.
510: --
511: -- Access Status:
512: -- Internal Development Use Only.
518: --
519: l_proc varchar2(72) := g_package||'chk_gb_segment8';
520: l_exists varchar2(80);
521: --
522: cursor csr_chk_hr_lookups is
523: select null
524: from hr_lookups
525: where LOOKUP_TYPE = 'GB_COUNTRY'
526: and lookup_code = p_segment8;
520: l_exists varchar2(80);
521: --
522: cursor csr_chk_hr_lookups is
523: select null
524: from hr_lookups
525: where LOOKUP_TYPE = 'GB_COUNTRY'
526: and lookup_code = p_segment8;
527: --
528: begin
537: hr_utility.set_message_token('ARG_VALUE', p_segment8);
538: hr_utility.raise_error;
539: end if;
540: --
541: -- Ensure that the p_segment8 exists in hr_lookups where lookup_type =
542: -- 'GB_COUNTRY'
543: --
544: open csr_chk_hr_lookups;
545: fetch csr_chk_hr_lookups into l_exists;
540: --
541: -- Ensure that the p_segment8 exists in hr_lookups where lookup_type =
542: -- 'GB_COUNTRY'
543: --
544: open csr_chk_hr_lookups;
545: fetch csr_chk_hr_lookups into l_exists;
546: if csr_chk_hr_lookups%notfound then
547: close csr_chk_hr_lookups;
548: hr_utility.set_message(801, 'HR_51430_EXA_BANK_LOC_UNKNOWN');
541: -- Ensure that the p_segment8 exists in hr_lookups where lookup_type =
542: -- 'GB_COUNTRY'
543: --
544: open csr_chk_hr_lookups;
545: fetch csr_chk_hr_lookups into l_exists;
546: if csr_chk_hr_lookups%notfound then
547: close csr_chk_hr_lookups;
548: hr_utility.set_message(801, 'HR_51430_EXA_BANK_LOC_UNKNOWN');
549: hr_utility.set_message_token('ARG_NAME', 'p_segment8');
542: -- 'GB_COUNTRY'
543: --
544: open csr_chk_hr_lookups;
545: fetch csr_chk_hr_lookups into l_exists;
546: if csr_chk_hr_lookups%notfound then
547: close csr_chk_hr_lookups;
548: hr_utility.set_message(801, 'HR_51430_EXA_BANK_LOC_UNKNOWN');
549: hr_utility.set_message_token('ARG_NAME', 'p_segment8');
550: hr_utility.set_message_token('ARG_VALUE', p_segment8);
543: --
544: open csr_chk_hr_lookups;
545: fetch csr_chk_hr_lookups into l_exists;
546: if csr_chk_hr_lookups%notfound then
547: close csr_chk_hr_lookups;
548: hr_utility.set_message(801, 'HR_51430_EXA_BANK_LOC_UNKNOWN');
549: hr_utility.set_message_token('ARG_NAME', 'p_segment8');
550: hr_utility.set_message_token('ARG_VALUE', p_segment8);
551: hr_utility.raise_error;
549: hr_utility.set_message_token('ARG_NAME', 'p_segment8');
550: hr_utility.set_message_token('ARG_VALUE', p_segment8);
551: hr_utility.raise_error;
552: end if;
553: close csr_chk_hr_lookups;
554: end if;
555: hr_utility.set_location(' Leaving:'||l_proc, 10);
556: --
557: end chk_gb_segment8;