56: open csr_leg_code(p_legislation_code => p_legislation_code);
57: fetch csr_leg_code into l_dummy;
58: if csr_leg_code%notfound then
59: close csr_leg_code;
60: fnd_message.set_name('PAY', 'PAY_50070_INVALID_LEG_CODE');
61: fnd_message.raise_error;
62: end if;
63: close csr_leg_code;
64:
57: fetch csr_leg_code into l_dummy;
58: if csr_leg_code%notfound then
59: close csr_leg_code;
60: fnd_message.set_name('PAY', 'PAY_50070_INVALID_LEG_CODE');
61: fnd_message.raise_error;
62: end if;
63: close csr_leg_code;
64:
65: --
71: ,p_lookup_type => 'YES_NO'
72: ,p_lookup_code => p_enabled_flag
73: )
74: then
75: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
76: fnd_message.set_token('LOOKUP_TYPE', 'YES_NO');
77: fnd_message.set_token('COLUMN', 'P_ENABLED_FLAG');
78: fnd_message.raise_error;
79: end if;
72: ,p_lookup_code => p_enabled_flag
73: )
74: then
75: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
76: fnd_message.set_token('LOOKUP_TYPE', 'YES_NO');
77: fnd_message.set_token('COLUMN', 'P_ENABLED_FLAG');
78: fnd_message.raise_error;
79: end if;
80:
73: )
74: then
75: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
76: fnd_message.set_token('LOOKUP_TYPE', 'YES_NO');
77: fnd_message.set_token('COLUMN', 'P_ENABLED_FLAG');
78: fnd_message.raise_error;
79: end if;
80:
81: insert into pay_bank_branches
74: then
75: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
76: fnd_message.set_token('LOOKUP_TYPE', 'YES_NO');
77: fnd_message.set_token('COLUMN', 'P_ENABLED_FLAG');
78: fnd_message.raise_error;
79: end if;
80:
81: insert into pay_bank_branches
82: (branch_code
141: hr_utility.set_location('Leaving:pay_bank_branches.lock_row', 10);
142: end if;
143: --
144: close c1;
145: fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
146: fnd_message.raise_error;
147: end if;
148: close c1;
149: --
142: end if;
143: --
144: close c1;
145: fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
146: fnd_message.raise_error;
147: end if;
148: close c1;
149: --
150: if l_debug then
244: hr_utility.set_location('Leaving:pay_bank_branches.update_row', 10);
245: end if;
246: --
247: close c1;
248: fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
249: fnd_message.raise_error;
250: end if;
251: close c1;
252: --
245: end if;
246: --
247: close c1;
248: fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
249: fnd_message.raise_error;
250: end if;
251: close c1;
252: --
253: conv(p_branch_code, l_branch_code);
272: ,p_lookup_type => 'YES_NO'
273: ,p_lookup_code => l_enabled_flag
274: )
275: then
276: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
277: fnd_message.set_token('LOOKUP_TYPE', 'YES_NO');
278: fnd_message.set_token('COLUMN', 'P_ENABLED_FLAG');
279: fnd_message.raise_error;
280: end if;
273: ,p_lookup_code => l_enabled_flag
274: )
275: then
276: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
277: fnd_message.set_token('LOOKUP_TYPE', 'YES_NO');
278: fnd_message.set_token('COLUMN', 'P_ENABLED_FLAG');
279: fnd_message.raise_error;
280: end if;
281:
274: )
275: then
276: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
277: fnd_message.set_token('LOOKUP_TYPE', 'YES_NO');
278: fnd_message.set_token('COLUMN', 'P_ENABLED_FLAG');
279: fnd_message.raise_error;
280: end if;
281:
282: update pay_bank_branches
275: then
276: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
277: fnd_message.set_token('LOOKUP_TYPE', 'YES_NO');
278: fnd_message.set_token('COLUMN', 'P_ENABLED_FLAG');
279: fnd_message.raise_error;
280: end if;
281:
282: update pay_bank_branches
283: set bank_code = l_bank_code
363: --
364: -- Length check.
365: --
366: if length(p_sort_code) > l_sort_code_len then
367: fnd_message.set_name('PAY', 'HR_51419_EXA_SORT_CODE_LENGTH');
368: fnd_message.raise_error;
369: end if;
370: --
371: -- The sort code must only contain digits (0-9).
364: -- Length check.
365: --
366: if length(p_sort_code) > l_sort_code_len then
367: fnd_message.set_name('PAY', 'HR_51419_EXA_SORT_CODE_LENGTH');
368: fnd_message.raise_error;
369: end if;
370: --
371: -- The sort code must only contain digits (0-9).
372: --
371: -- The sort code must only contain digits (0-9).
372: --
373: l_temp_string := translate(p_sort_code, '0123456789','0000000000');
374: if l_temp_string <> lpad('0', length(p_sort_code), '0') then
375: fnd_message.set_name('PAY', 'PAY_51538_BAD_GB_SORT_CODE');
376: fnd_message.raise_error;
377: end if;
378: --
379: -- Left-pad with zeroes, if necessary.
372: --
373: l_temp_string := translate(p_sort_code, '0123456789','0000000000');
374: if l_temp_string <> lpad('0', length(p_sort_code), '0') then
375: fnd_message.set_name('PAY', 'PAY_51538_BAD_GB_SORT_CODE');
376: fnd_message.raise_error;
377: end if;
378: --
379: -- Left-pad with zeroes, if necessary.
380: --
395: ,p_lookup_type => 'GB_BANKS'
396: ,p_lookup_code => p_bank_code
397: )
398: then
399: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
400: fnd_message.set_token('LOOKUP_TYPE', 'GB_BANKS');
401: fnd_message.set_token('COLUMN', 'P_BANK_CODE');
402: fnd_message.raise_error;
403: end if;
396: ,p_lookup_code => p_bank_code
397: )
398: then
399: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
400: fnd_message.set_token('LOOKUP_TYPE', 'GB_BANKS');
401: fnd_message.set_token('COLUMN', 'P_BANK_CODE');
402: fnd_message.raise_error;
403: end if;
404:
397: )
398: then
399: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
400: fnd_message.set_token('LOOKUP_TYPE', 'GB_BANKS');
401: fnd_message.set_token('COLUMN', 'P_BANK_CODE');
402: fnd_message.raise_error;
403: end if;
404:
405: --
398: then
399: fnd_message.set_name('PAY', 'HR_52966_INVALID_LOOKUP');
400: fnd_message.set_token('LOOKUP_TYPE', 'GB_BANKS');
401: fnd_message.set_token('COLUMN', 'P_BANK_CODE');
402: fnd_message.raise_error;
403: end if;
404:
405: --
406: -- BRANCH must be <= 35 bytes in length.
405: --
406: -- BRANCH must be <= 35 bytes in length.
407: --
408: if lengthb(p_branch) > l_branch_len then
409: fnd_message.set_name('PAY', 'HR_51418_EXA_BANK_BRANCH_LONG');
410: fnd_message.raise_error;
411: end if;
412:
413: if l_debug then
406: -- BRANCH must be <= 35 bytes in length.
407: --
408: if lengthb(p_branch) > l_branch_len then
409: fnd_message.set_name('PAY', 'HR_51418_EXA_BANK_BRANCH_LONG');
410: fnd_message.raise_error;
411: end if;
412:
413: if l_debug then
414: hr_utility.set_location('Leaving:' || l_proc, 40);
569: --
570: -- Account number length check.
571: --
572: if length(p_account_number) > g_gb_accno_len then
573: fnd_message.set_name('PAY', 'HR_51421_EXA_ACCOUNT_NO_LONG');
574: fnd_message.raise_error;
575: end if;
576: --
577: -- The account number must only contain digits (0-9).
570: -- Account number length check.
571: --
572: if length(p_account_number) > g_gb_accno_len then
573: fnd_message.set_name('PAY', 'HR_51421_EXA_ACCOUNT_NO_LONG');
574: fnd_message.raise_error;
575: end if;
576: --
577: -- The account number must only contain digits (0-9).
578: --
577: -- The account number must only contain digits (0-9).
578: --
579: l_temp_string := translate(p_account_number, '0123456789','0000000000');
580: if l_temp_string <> lpad('0', length(p_account_number), '0') then
581: fnd_message.set_name('PAY', 'HR_51422_EXA_ACCT_NO_POSITIVE');
582: fnd_message.raise_error;
583: end if;
584: --
585: -- Check whether or not the external account row has changed.
578: --
579: l_temp_string := translate(p_account_number, '0123456789','0000000000');
580: if l_temp_string <> lpad('0', length(p_account_number), '0') then
581: fnd_message.set_name('PAY', 'HR_51422_EXA_ACCT_NO_POSITIVE');
582: fnd_message.raise_error;
583: end if;
584: --
585: -- Check whether or not the external account row has changed.
586: --
649: if l_debug then
650: hr_utility.set_location(l_proc, 20);
651: end if;
652: --
653: fnd_message.set_name('PAY', 'PAY_33100_INVALID_SORT_CODE');
654: fnd_message.set_token('SORT_CODE', p_sort_code);
655: fnd_message.raise_error;
656: end if;
657: end if;
650: hr_utility.set_location(l_proc, 20);
651: end if;
652: --
653: fnd_message.set_name('PAY', 'PAY_33100_INVALID_SORT_CODE');
654: fnd_message.set_token('SORT_CODE', p_sort_code);
655: fnd_message.raise_error;
656: end if;
657: end if;
658: --
651: end if;
652: --
653: fnd_message.set_name('PAY', 'PAY_33100_INVALID_SORT_CODE');
654: fnd_message.set_token('SORT_CODE', p_sort_code);
655: fnd_message.raise_error;
656: end if;
657: end if;
658: --
659: p_return_status := fnd_api.G_RET_STS_SUCCESS;