48: l_proc varchar2(72) := g_package||'chk_gb_segment1';
49: l_dummy number;
50: --
51: begin
52: hr_utility.set_location('Entering:'||l_proc, 5);
53: --
54: -- Ensure that segment1 is mandatory
55: --
56: hr_api.mandatory_arg_error
60: --
61: -- Ensure that the length does not exceed 30
62: --
63: if (length(p_segment1) > 30) then
64: hr_utility.set_message(801, 'HR_51416_EXA_BANK_NAME_LONG');
65: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
66: hr_utility.set_message_token('ARG_VALUE', p_segment1);
67: hr_utility.raise_error;
68: end if;
61: -- Ensure that the length does not exceed 30
62: --
63: if (length(p_segment1) > 30) then
64: hr_utility.set_message(801, 'HR_51416_EXA_BANK_NAME_LONG');
65: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
66: hr_utility.set_message_token('ARG_VALUE', p_segment1);
67: hr_utility.raise_error;
68: end if;
69: --
62: --
63: if (length(p_segment1) > 30) then
64: hr_utility.set_message(801, 'HR_51416_EXA_BANK_NAME_LONG');
65: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
66: hr_utility.set_message_token('ARG_VALUE', p_segment1);
67: hr_utility.raise_error;
68: end if;
69: --
70: -- Ensure that the p_segment1 is valid and exists
63: if (length(p_segment1) > 30) then
64: hr_utility.set_message(801, 'HR_51416_EXA_BANK_NAME_LONG');
65: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
66: hr_utility.set_message_token('ARG_VALUE', p_segment1);
67: hr_utility.raise_error;
68: end if;
69: --
70: -- Ensure that the p_segment1 is valid and exists
71: --
72: open hlsel;
73: fetch hlsel into l_dummy;
74: if hlsel%notfound then
75: close hlsel;
76: hr_utility.set_message(801, 'HR_51417_EXA_BANK_NAME_UNKNOWN');
77: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
78: hr_utility.set_message_token('ARG_VALUE', p_segment1);
79: hr_utility.raise_error;
80: end if;
73: fetch hlsel into l_dummy;
74: if hlsel%notfound then
75: close hlsel;
76: hr_utility.set_message(801, 'HR_51417_EXA_BANK_NAME_UNKNOWN');
77: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
78: hr_utility.set_message_token('ARG_VALUE', p_segment1);
79: hr_utility.raise_error;
80: end if;
81: close hlsel;
74: if hlsel%notfound then
75: close hlsel;
76: hr_utility.set_message(801, 'HR_51417_EXA_BANK_NAME_UNKNOWN');
77: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
78: hr_utility.set_message_token('ARG_VALUE', p_segment1);
79: hr_utility.raise_error;
80: end if;
81: close hlsel;
82: --
75: close hlsel;
76: hr_utility.set_message(801, 'HR_51417_EXA_BANK_NAME_UNKNOWN');
77: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
78: hr_utility.set_message_token('ARG_VALUE', p_segment1);
79: hr_utility.raise_error;
80: end if;
81: close hlsel;
82: --
83: hr_utility.set_location(' Leaving:'||l_proc, 10);
79: hr_utility.raise_error;
80: end if;
81: close hlsel;
82: --
83: hr_utility.set_location(' Leaving:'||l_proc, 10);
84: --
85: end chk_gb_segment1;
86: --
87: -- ----------------------------------------------------------------------------
118: --
119: l_proc varchar2(72) := g_package||'chk_gb_segment2';
120: --
121: begin
122: hr_utility.set_location('Entering:'||l_proc, 5);
123: --
124: -- Ensure that the length does not exceed 35
125: --
126: if (length(p_segment2) > 35) then
123: --
124: -- Ensure that the length does not exceed 35
125: --
126: if (length(p_segment2) > 35) then
127: hr_utility.set_message(801, 'HR_51418_EXA_BANK_BRANCH_LONG');
128: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
129: hr_utility.set_message_token('ARG_VALUE', p_segment2);
130: hr_utility.raise_error;
131: end if;
124: -- Ensure that the length does not exceed 35
125: --
126: if (length(p_segment2) > 35) then
127: hr_utility.set_message(801, 'HR_51418_EXA_BANK_BRANCH_LONG');
128: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
129: hr_utility.set_message_token('ARG_VALUE', p_segment2);
130: hr_utility.raise_error;
131: end if;
132: --
125: --
126: if (length(p_segment2) > 35) then
127: hr_utility.set_message(801, 'HR_51418_EXA_BANK_BRANCH_LONG');
128: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
129: hr_utility.set_message_token('ARG_VALUE', p_segment2);
130: hr_utility.raise_error;
131: end if;
132: --
133: hr_utility.set_location(' Leaving:'||l_proc, 10);
126: if (length(p_segment2) > 35) then
127: hr_utility.set_message(801, 'HR_51418_EXA_BANK_BRANCH_LONG');
128: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
129: hr_utility.set_message_token('ARG_VALUE', p_segment2);
130: hr_utility.raise_error;
131: end if;
132: --
133: hr_utility.set_location(' Leaving:'||l_proc, 10);
134: --
129: hr_utility.set_message_token('ARG_VALUE', p_segment2);
130: hr_utility.raise_error;
131: end if;
132: --
133: hr_utility.set_location(' Leaving:'||l_proc, 10);
134: --
135: end chk_gb_segment2;
136: --
137: -- ----------------------------------------------------------------------------
170: l_proc varchar2(72) := g_package||'chk_gb_segment3';
171: l_segment3 pay_external_accounts.segment3%type;
172: --
173: begin
174: hr_utility.set_location('Entering:'||l_proc, 5);
175: --
176: -- Ensure that segment3 is mandatory
177: --
178: hr_api.mandatory_arg_error
182: --
183: -- Ensure that the length is 6
184: --
185: if (length(p_segment3) <> 6) then
186: hr_utility.set_message(801, 'HR_51419_EXA_SORT_CODE_LENGTH');
187: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
188: hr_utility.set_message_token('ARG_VALUE', p_segment3);
189: hr_utility.raise_error;
190: end if;
183: -- Ensure that the length is 6
184: --
185: if (length(p_segment3) <> 6) then
186: hr_utility.set_message(801, 'HR_51419_EXA_SORT_CODE_LENGTH');
187: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
188: hr_utility.set_message_token('ARG_VALUE', p_segment3);
189: hr_utility.raise_error;
190: end if;
191: --
184: --
185: if (length(p_segment3) <> 6) then
186: hr_utility.set_message(801, 'HR_51419_EXA_SORT_CODE_LENGTH');
187: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
188: hr_utility.set_message_token('ARG_VALUE', p_segment3);
189: hr_utility.raise_error;
190: end if;
191: --
192: -- Ensure that the p_segment3 is in a number format
185: if (length(p_segment3) <> 6) then
186: hr_utility.set_message(801, 'HR_51419_EXA_SORT_CODE_LENGTH');
187: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
188: hr_utility.set_message_token('ARG_VALUE', p_segment3);
189: hr_utility.raise_error;
190: end if;
191: --
192: -- Ensure that the p_segment3 is in a number format
193: --
190: end if;
191: --
192: -- Ensure that the p_segment3 is in a number format
193: --
194: hr_utility.set_location(l_proc,7);
195: l_segment3 := p_segment3;
196: --
197: hr_dbchkfmt.is_db_format
198: (p_value => l_segment3,
198: (p_value => l_segment3,
199: p_arg_name => 'segment3',
200: p_format => 'I');
201: --
202: hr_utility.set_location(l_proc,8);
203: --
204: -- Ensure that p_segment3 is +ve
205: --
206: if (fnd_number.canonical_to_number(p_segment3) < 0) then
203: --
204: -- Ensure that p_segment3 is +ve
205: --
206: if (fnd_number.canonical_to_number(p_segment3) < 0) then
207: hr_utility.set_message(801, 'HR_51420_EXA_SORT_CODE_POSITVE');
208: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
209: hr_utility.set_message_token('ARG_VALUE', p_segment3);
210: hr_utility.raise_error;
211: end if;
204: -- Ensure that p_segment3 is +ve
205: --
206: if (fnd_number.canonical_to_number(p_segment3) < 0) then
207: hr_utility.set_message(801, 'HR_51420_EXA_SORT_CODE_POSITVE');
208: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
209: hr_utility.set_message_token('ARG_VALUE', p_segment3);
210: hr_utility.raise_error;
211: end if;
212: --
205: --
206: if (fnd_number.canonical_to_number(p_segment3) < 0) then
207: hr_utility.set_message(801, 'HR_51420_EXA_SORT_CODE_POSITVE');
208: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
209: hr_utility.set_message_token('ARG_VALUE', p_segment3);
210: hr_utility.raise_error;
211: end if;
212: --
213: hr_utility.set_location(' Leaving:'||l_proc, 10);
206: if (fnd_number.canonical_to_number(p_segment3) < 0) then
207: hr_utility.set_message(801, 'HR_51420_EXA_SORT_CODE_POSITVE');
208: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
209: hr_utility.set_message_token('ARG_VALUE', p_segment3);
210: hr_utility.raise_error;
211: end if;
212: --
213: hr_utility.set_location(' Leaving:'||l_proc, 10);
214: --
209: hr_utility.set_message_token('ARG_VALUE', p_segment3);
210: hr_utility.raise_error;
211: end if;
212: --
213: hr_utility.set_location(' Leaving:'||l_proc, 10);
214: --
215: end chk_gb_segment3;
216: --
217: -- ----------------------------------------------------------------------------
250: l_proc varchar2(72) := g_package||'chk_gb_segment4';
251: l_segment4 pay_external_accounts.segment4%type;
252: --
253: begin
254: hr_utility.set_location('Entering:'||l_proc, 5);
255: --
256: -- Ensure that segment4 is mandatory
257: --
258: hr_api.mandatory_arg_error
262: --
263: -- Ensure that the length is 8
264: --
265: if (length(p_segment4) <> 8) then
266: hr_utility.set_message(801, 'HR_51421_EXA_ACCOUNT_NO_LONG');
267: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
268: hr_utility.set_message_token('ARG_VALUE', p_segment4);
269: hr_utility.raise_error;
270: end if;
263: -- Ensure that the length is 8
264: --
265: if (length(p_segment4) <> 8) then
266: hr_utility.set_message(801, 'HR_51421_EXA_ACCOUNT_NO_LONG');
267: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
268: hr_utility.set_message_token('ARG_VALUE', p_segment4);
269: hr_utility.raise_error;
270: end if;
271: --
264: --
265: if (length(p_segment4) <> 8) then
266: hr_utility.set_message(801, 'HR_51421_EXA_ACCOUNT_NO_LONG');
267: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
268: hr_utility.set_message_token('ARG_VALUE', p_segment4);
269: hr_utility.raise_error;
270: end if;
271: --
272: -- Ensure that the p_segment4 is in a number format
265: if (length(p_segment4) <> 8) then
266: hr_utility.set_message(801, 'HR_51421_EXA_ACCOUNT_NO_LONG');
267: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
268: hr_utility.set_message_token('ARG_VALUE', p_segment4);
269: hr_utility.raise_error;
270: end if;
271: --
272: -- Ensure that the p_segment4 is in a number format
273: --
279: --
280: -- Ensure that p_segment4 is +ve
281: --
282: if (fnd_number.canonical_to_number(p_segment4) < 0) then
283: hr_utility.set_message(801, 'HR_51422_EXA_ACCT_NO_POSITIVE');
284: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
285: hr_utility.set_message_token('ARG_VALUE', p_segment4);
286: hr_utility.raise_error;
287: end if;
280: -- Ensure that p_segment4 is +ve
281: --
282: if (fnd_number.canonical_to_number(p_segment4) < 0) then
283: hr_utility.set_message(801, 'HR_51422_EXA_ACCT_NO_POSITIVE');
284: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
285: hr_utility.set_message_token('ARG_VALUE', p_segment4);
286: hr_utility.raise_error;
287: end if;
288: --
281: --
282: if (fnd_number.canonical_to_number(p_segment4) < 0) then
283: hr_utility.set_message(801, 'HR_51422_EXA_ACCT_NO_POSITIVE');
284: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
285: hr_utility.set_message_token('ARG_VALUE', p_segment4);
286: hr_utility.raise_error;
287: end if;
288: --
289: hr_utility.set_location(' Leaving:'||l_proc, 10);
282: if (fnd_number.canonical_to_number(p_segment4) < 0) then
283: hr_utility.set_message(801, 'HR_51422_EXA_ACCT_NO_POSITIVE');
284: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
285: hr_utility.set_message_token('ARG_VALUE', p_segment4);
286: hr_utility.raise_error;
287: end if;
288: --
289: hr_utility.set_location(' Leaving:'||l_proc, 10);
290: --
285: hr_utility.set_message_token('ARG_VALUE', p_segment4);
286: hr_utility.raise_error;
287: end if;
288: --
289: hr_utility.set_location(' Leaving:'||l_proc, 10);
290: --
291: end chk_gb_segment4;
292: --
293: -- ----------------------------------------------------------------------------
324: --
325: l_proc varchar2(72) := g_package||'chk_gb_segment5';
326: --
327: begin
328: hr_utility.set_location('Entering:'||l_proc, 5);
329: --
330: -- Ensure that segment5 is mandatory
331: --
332: hr_api.mandatory_arg_error
336: --
337: -- Ensure that the length does not exceed 18
338: --
339: if (length(p_segment5) > 18) then
340: hr_utility.set_message(801, 'HR_51423_EXA_ACCOUNT_NAME_LONG');
341: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
342: hr_utility.set_message_token('ARG_VALUE', p_segment5);
343: hr_utility.raise_error;
344: end if;
337: -- Ensure that the length does not exceed 18
338: --
339: if (length(p_segment5) > 18) then
340: hr_utility.set_message(801, 'HR_51423_EXA_ACCOUNT_NAME_LONG');
341: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
342: hr_utility.set_message_token('ARG_VALUE', p_segment5);
343: hr_utility.raise_error;
344: end if;
345: --
338: --
339: if (length(p_segment5) > 18) then
340: hr_utility.set_message(801, 'HR_51423_EXA_ACCOUNT_NAME_LONG');
341: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
342: hr_utility.set_message_token('ARG_VALUE', p_segment5);
343: hr_utility.raise_error;
344: end if;
345: --
346: -- Ensure that the p_segment5 is in an upperformat format
339: if (length(p_segment5) > 18) then
340: hr_utility.set_message(801, 'HR_51423_EXA_ACCOUNT_NAME_LONG');
341: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
342: hr_utility.set_message_token('ARG_VALUE', p_segment5);
343: hr_utility.raise_error;
344: end if;
345: --
346: -- Ensure that the p_segment5 is in an upperformat format
347: --
345: --
346: -- Ensure that the p_segment5 is in an upperformat format
347: --
348: if (p_segment5 <> upper(p_segment5)) then
349: hr_utility.set_message(801, 'HR_51424_EXA_ACCOUNT_NAME_CASE');
350: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
351: hr_utility.set_message_token('ARG_VALUE', p_segment5);
352: hr_utility.raise_error;
353: end if;
346: -- Ensure that the p_segment5 is in an upperformat format
347: --
348: if (p_segment5 <> upper(p_segment5)) then
349: hr_utility.set_message(801, 'HR_51424_EXA_ACCOUNT_NAME_CASE');
350: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
351: hr_utility.set_message_token('ARG_VALUE', p_segment5);
352: hr_utility.raise_error;
353: end if;
354: --
347: --
348: if (p_segment5 <> upper(p_segment5)) then
349: hr_utility.set_message(801, 'HR_51424_EXA_ACCOUNT_NAME_CASE');
350: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
351: hr_utility.set_message_token('ARG_VALUE', p_segment5);
352: hr_utility.raise_error;
353: end if;
354: --
355: hr_utility.set_location(' Leaving:'||l_proc, 10);
348: if (p_segment5 <> upper(p_segment5)) then
349: hr_utility.set_message(801, 'HR_51424_EXA_ACCOUNT_NAME_CASE');
350: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
351: hr_utility.set_message_token('ARG_VALUE', p_segment5);
352: hr_utility.raise_error;
353: end if;
354: --
355: hr_utility.set_location(' Leaving:'||l_proc, 10);
356: --
351: hr_utility.set_message_token('ARG_VALUE', p_segment5);
352: hr_utility.raise_error;
353: end if;
354: --
355: hr_utility.set_location(' Leaving:'||l_proc, 10);
356: --
357: end chk_gb_segment5;
358: --
359: -- ----------------------------------------------------------------------------
391: l_proc varchar2(72) := g_package||'chk_gb_segment6';
392: l_segment6 pay_external_accounts.segment6%type;
393: --
394: begin
395: hr_utility.set_location('Entering:'||l_proc, 5);
396: if p_segment6 is not null then
397: --
398: -- Ensure that the length does not exceed 1
399: --
397: --
398: -- Ensure that the length does not exceed 1
399: --
400: if (length(p_segment6) > 1) then
401: hr_utility.set_message(801, 'HR_51425_EXA_ACCOUNT_TYPE_LONG');
402: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
403: hr_utility.set_message_token('ARG_VALUE', p_segment6);
404: hr_utility.raise_error;
405: end if;
398: -- Ensure that the length does not exceed 1
399: --
400: if (length(p_segment6) > 1) then
401: hr_utility.set_message(801, 'HR_51425_EXA_ACCOUNT_TYPE_LONG');
402: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
403: hr_utility.set_message_token('ARG_VALUE', p_segment6);
404: hr_utility.raise_error;
405: end if;
406: --
399: --
400: if (length(p_segment6) > 1) then
401: hr_utility.set_message(801, 'HR_51425_EXA_ACCOUNT_TYPE_LONG');
402: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
403: hr_utility.set_message_token('ARG_VALUE', p_segment6);
404: hr_utility.raise_error;
405: end if;
406: --
407: -- Ensure that the p_segment6 is in a number format
400: if (length(p_segment6) > 1) then
401: hr_utility.set_message(801, 'HR_51425_EXA_ACCOUNT_TYPE_LONG');
402: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
403: hr_utility.set_message_token('ARG_VALUE', p_segment6);
404: hr_utility.raise_error;
405: end if;
406: --
407: -- Ensure that the p_segment6 is in a number format
408: --
414: --
415: -- Ensure that p_segment4 is in the range of:0 to 5
416: --
417: if (fnd_number.canonical_to_number(p_segment6) < 0 or fnd_number.canonical_to_number(p_segment6) > 5) then
418: hr_utility.set_message(801, 'HR_51426_EXA_ACCT_TYPE_RANGE');
419: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
420: hr_utility.set_message_token('ARG_VALUE', p_segment6);
421: hr_utility.raise_error;
422: end if;
415: -- Ensure that p_segment4 is in the range of:0 to 5
416: --
417: if (fnd_number.canonical_to_number(p_segment6) < 0 or fnd_number.canonical_to_number(p_segment6) > 5) then
418: hr_utility.set_message(801, 'HR_51426_EXA_ACCT_TYPE_RANGE');
419: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
420: hr_utility.set_message_token('ARG_VALUE', p_segment6);
421: hr_utility.raise_error;
422: end if;
423: end if;
416: --
417: if (fnd_number.canonical_to_number(p_segment6) < 0 or fnd_number.canonical_to_number(p_segment6) > 5) then
418: hr_utility.set_message(801, 'HR_51426_EXA_ACCT_TYPE_RANGE');
419: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
420: hr_utility.set_message_token('ARG_VALUE', p_segment6);
421: hr_utility.raise_error;
422: end if;
423: end if;
424: hr_utility.set_location(' Leaving:'||l_proc, 10);
417: if (fnd_number.canonical_to_number(p_segment6) < 0 or fnd_number.canonical_to_number(p_segment6) > 5) then
418: hr_utility.set_message(801, 'HR_51426_EXA_ACCT_TYPE_RANGE');
419: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
420: hr_utility.set_message_token('ARG_VALUE', p_segment6);
421: hr_utility.raise_error;
422: end if;
423: end if;
424: hr_utility.set_location(' Leaving:'||l_proc, 10);
425: --
420: hr_utility.set_message_token('ARG_VALUE', p_segment6);
421: hr_utility.raise_error;
422: end if;
423: end if;
424: hr_utility.set_location(' Leaving:'||l_proc, 10);
425: --
426: end chk_gb_segment6;
427: --
428: -- ----------------------------------------------------------------------------
458: --
459: l_proc varchar2(72) := g_package||'chk_gb_segment7';
460: --
461: begin
462: hr_utility.set_location('Entering:'||l_proc, 5);
463: if p_segment7 is not null then
464: --
465: -- Ensure that the length does not exceed 18
466: --
464: --
465: -- Ensure that the length does not exceed 18
466: --
467: if (length(p_segment7) > 18) then
468: hr_utility.set_message(801, 'HR_51427_EXA_BS_ACCT_NO_LONG');
469: hr_utility.set_message_token('ARG_NAME', 'p_segment7');
470: hr_utility.set_message_token('ARG_VALUE', p_segment7);
471: hr_utility.raise_error;
472: end if;
465: -- Ensure that the length does not exceed 18
466: --
467: if (length(p_segment7) > 18) then
468: hr_utility.set_message(801, 'HR_51427_EXA_BS_ACCT_NO_LONG');
469: hr_utility.set_message_token('ARG_NAME', 'p_segment7');
470: hr_utility.set_message_token('ARG_VALUE', p_segment7);
471: hr_utility.raise_error;
472: end if;
473: --
466: --
467: if (length(p_segment7) > 18) then
468: hr_utility.set_message(801, 'HR_51427_EXA_BS_ACCT_NO_LONG');
469: hr_utility.set_message_token('ARG_NAME', 'p_segment7');
470: hr_utility.set_message_token('ARG_VALUE', p_segment7);
471: hr_utility.raise_error;
472: end if;
473: --
474: -- Ensure that the p_segment7 is in an uppercase format
467: if (length(p_segment7) > 18) then
468: hr_utility.set_message(801, 'HR_51427_EXA_BS_ACCT_NO_LONG');
469: hr_utility.set_message_token('ARG_NAME', 'p_segment7');
470: hr_utility.set_message_token('ARG_VALUE', p_segment7);
471: hr_utility.raise_error;
472: end if;
473: --
474: -- Ensure that the p_segment7 is in an uppercase format
475: --
473: --
474: -- Ensure that the p_segment7 is in an uppercase format
475: --
476: if (p_segment7 <> upper(p_segment7)) then
477: hr_utility.set_message(801, 'HR_51428_EXA_BS_ACCT_NO_CASE');
478: hr_utility.set_message_token('ARG_NAME', 'p_segment7');
479: hr_utility.set_message_token('ARG_VALUE', p_segment7);
480: hr_utility.raise_error;
481: end if;
474: -- Ensure that the p_segment7 is in an uppercase format
475: --
476: if (p_segment7 <> upper(p_segment7)) then
477: hr_utility.set_message(801, 'HR_51428_EXA_BS_ACCT_NO_CASE');
478: hr_utility.set_message_token('ARG_NAME', 'p_segment7');
479: hr_utility.set_message_token('ARG_VALUE', p_segment7);
480: hr_utility.raise_error;
481: end if;
482: end if;
475: --
476: if (p_segment7 <> upper(p_segment7)) then
477: hr_utility.set_message(801, 'HR_51428_EXA_BS_ACCT_NO_CASE');
478: hr_utility.set_message_token('ARG_NAME', 'p_segment7');
479: hr_utility.set_message_token('ARG_VALUE', p_segment7);
480: hr_utility.raise_error;
481: end if;
482: end if;
483: hr_utility.set_location(' Leaving:'||l_proc, 10);
476: if (p_segment7 <> upper(p_segment7)) then
477: hr_utility.set_message(801, 'HR_51428_EXA_BS_ACCT_NO_CASE');
478: hr_utility.set_message_token('ARG_NAME', 'p_segment7');
479: hr_utility.set_message_token('ARG_VALUE', p_segment7);
480: hr_utility.raise_error;
481: end if;
482: end if;
483: hr_utility.set_location(' Leaving:'||l_proc, 10);
484: --
479: hr_utility.set_message_token('ARG_VALUE', p_segment7);
480: hr_utility.raise_error;
481: end if;
482: end if;
483: hr_utility.set_location(' Leaving:'||l_proc, 10);
484: --
485: end chk_gb_segment7;
486: --
487: -- ----------------------------------------------------------------------------
525: where LOOKUP_TYPE = 'GB_COUNTRY'
526: and lookup_code = p_segment8;
527: --
528: begin
529: hr_utility.set_location('Entering:'||l_proc, 5);
530: if p_segment8 is not null then
531: --
532: -- Ensure that the length does not exceed 20
533: --
531: --
532: -- Ensure that the length does not exceed 20
533: --
534: if (length(p_segment8) > 20) then
535: hr_utility.set_message(801, 'HR_51429_EXA_BANK_LOC_LONG');
536: hr_utility.set_message_token('ARG_NAME', 'p_segment8');
537: hr_utility.set_message_token('ARG_VALUE', p_segment8);
538: hr_utility.raise_error;
539: end if;
532: -- Ensure that the length does not exceed 20
533: --
534: if (length(p_segment8) > 20) then
535: hr_utility.set_message(801, 'HR_51429_EXA_BANK_LOC_LONG');
536: hr_utility.set_message_token('ARG_NAME', 'p_segment8');
537: hr_utility.set_message_token('ARG_VALUE', p_segment8);
538: hr_utility.raise_error;
539: end if;
540: --
533: --
534: if (length(p_segment8) > 20) then
535: hr_utility.set_message(801, 'HR_51429_EXA_BANK_LOC_LONG');
536: hr_utility.set_message_token('ARG_NAME', 'p_segment8');
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 =
534: if (length(p_segment8) > 20) then
535: hr_utility.set_message(801, 'HR_51429_EXA_BANK_LOC_LONG');
536: hr_utility.set_message_token('ARG_NAME', 'p_segment8');
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'
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;
552: end if;
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;
552: end if;
553: close csr_chk_hr_lookups;
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;
552: end if;
553: close csr_chk_hr_lookups;
554: end if;
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;
552: end if;
553: close csr_chk_hr_lookups;
554: end if;
555: hr_utility.set_location(' Leaving:'||l_proc, 10);
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;
558: --
559: -- ----------------------------------------------------------------------------
611: l_n number; -- arg in error number (9..30)
612: l_v pay_external_accounts.segment8%type; -- arg in error value (9..30)
613: --
614: begin
615: hr_utility.set_location('Entering:'||l_proc, 5);
616: --
617: if p_segment9 is not null then l_n:=9; l_v:=p_segment9 ;raise l_err;end if;
618: if p_segment10 is not null then l_n:=10;l_v:=p_segment10;raise l_err;end if;
619: if p_segment11 is not null then l_n:=11;l_v:=p_segment11;raise l_err;end if;
636: if p_segment28 is not null then l_n:=28;l_v:=p_segment28;raise l_err;end if;
637: if p_segment29 is not null then l_n:=29;l_v:=p_segment29;raise l_err;end if;
638: if p_segment30 is not null then l_n:=30;l_v:=p_segment30;raise l_err;end if;
639: --
640: hr_utility.set_location(' Leaving:'||l_proc, 10);
641: --
642: exception
643: when l_err then
644: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
640: hr_utility.set_location(' Leaving:'||l_proc, 10);
641: --
642: exception
643: when l_err then
644: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
645: hr_utility.set_message_token('ARG_NAME', 'p_segment'||to_char(l_n));
646: hr_utility.set_message_token('ARG_VALUE', l_v);
647: hr_utility.raise_error;
648: end chk_gb_segment9_30;
641: --
642: exception
643: when l_err then
644: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
645: hr_utility.set_message_token('ARG_NAME', 'p_segment'||to_char(l_n));
646: hr_utility.set_message_token('ARG_VALUE', l_v);
647: hr_utility.raise_error;
648: end chk_gb_segment9_30;
649: --
642: exception
643: when l_err then
644: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
645: hr_utility.set_message_token('ARG_NAME', 'p_segment'||to_char(l_n));
646: hr_utility.set_message_token('ARG_VALUE', l_v);
647: hr_utility.raise_error;
648: end chk_gb_segment9_30;
649: --
650: -- ----------------------------------------------------------------------------
643: when l_err then
644: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
645: hr_utility.set_message_token('ARG_NAME', 'p_segment'||to_char(l_n));
646: hr_utility.set_message_token('ARG_VALUE', l_v);
647: hr_utility.raise_error;
648: end chk_gb_segment9_30;
649: --
650: -- ----------------------------------------------------------------------------
651: -- |-----------------------< chk_us_segment1 >--------------------------------|
681: l_proc varchar2(72) := g_package||'chk_us_segment1';
682: l_dummy number;
683: --
684: begin
685: hr_utility.set_location('Entering:'||l_proc, 5);
686: --
687: -- Ensure that segment1 is mandatory
688: --
689: hr_api.mandatory_arg_error
692: p_argument_value => p_segment1);
693: --
694: -- Ensure that the length does not exceed 60
695: --
696: hr_utility.set_location(l_proc,7);
697: if (length(p_segment1) > 60) then
698: hr_utility.set_message(801, 'HR_51458_EXA_US_ACCT_NAME_LONG');
699: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
700: hr_utility.set_message_token('ARG_VALUE', p_segment1);
694: -- Ensure that the length does not exceed 60
695: --
696: hr_utility.set_location(l_proc,7);
697: if (length(p_segment1) > 60) then
698: hr_utility.set_message(801, 'HR_51458_EXA_US_ACCT_NAME_LONG');
699: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
700: hr_utility.set_message_token('ARG_VALUE', p_segment1);
701: hr_utility.raise_error;
702: end if;
695: --
696: hr_utility.set_location(l_proc,7);
697: if (length(p_segment1) > 60) then
698: hr_utility.set_message(801, 'HR_51458_EXA_US_ACCT_NAME_LONG');
699: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
700: hr_utility.set_message_token('ARG_VALUE', p_segment1);
701: hr_utility.raise_error;
702: end if;
703: --
696: hr_utility.set_location(l_proc,7);
697: if (length(p_segment1) > 60) then
698: hr_utility.set_message(801, 'HR_51458_EXA_US_ACCT_NAME_LONG');
699: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
700: hr_utility.set_message_token('ARG_VALUE', p_segment1);
701: hr_utility.raise_error;
702: end if;
703: --
704: hr_utility.set_location(' Leaving:'||l_proc, 10);
697: if (length(p_segment1) > 60) then
698: hr_utility.set_message(801, 'HR_51458_EXA_US_ACCT_NAME_LONG');
699: hr_utility.set_message_token('ARG_NAME', 'p_segment1');
700: hr_utility.set_message_token('ARG_VALUE', p_segment1);
701: hr_utility.raise_error;
702: end if;
703: --
704: hr_utility.set_location(' Leaving:'||l_proc, 10);
705: --
700: hr_utility.set_message_token('ARG_VALUE', p_segment1);
701: hr_utility.raise_error;
702: end if;
703: --
704: hr_utility.set_location(' Leaving:'||l_proc, 10);
705: --
706: end chk_us_segment1;
707: --
708: -- ----------------------------------------------------------------------------
748: l_proc varchar2(72) := g_package||'chk_us_segment2';
749: l_dummy number;
750: --
751: begin
752: hr_utility.set_location('Entering:'||l_proc, 5);
753: --
754: -- Ensure that segment2 is mandatory
755: --
756: hr_api.mandatory_arg_error
759: p_argument_value => p_segment2);
760: --
761: -- Ensure that the length does not exceed 80
762: --
763: hr_utility.set_location(l_proc,6);
764: if (length(p_segment2) > 80) then
765: hr_utility.set_message(801, 'HR_51459_EXA_US_ACCT_TYPE_LONG');
766: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
767: hr_utility.set_message_token('ARG_VALUE', p_segment2);
761: -- Ensure that the length does not exceed 80
762: --
763: hr_utility.set_location(l_proc,6);
764: if (length(p_segment2) > 80) then
765: hr_utility.set_message(801, 'HR_51459_EXA_US_ACCT_TYPE_LONG');
766: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
767: hr_utility.set_message_token('ARG_VALUE', p_segment2);
768: hr_utility.raise_error;
769: end if;
762: --
763: hr_utility.set_location(l_proc,6);
764: if (length(p_segment2) > 80) then
765: hr_utility.set_message(801, 'HR_51459_EXA_US_ACCT_TYPE_LONG');
766: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
767: hr_utility.set_message_token('ARG_VALUE', p_segment2);
768: hr_utility.raise_error;
769: end if;
770: --
763: hr_utility.set_location(l_proc,6);
764: if (length(p_segment2) > 80) then
765: hr_utility.set_message(801, 'HR_51459_EXA_US_ACCT_TYPE_LONG');
766: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
767: hr_utility.set_message_token('ARG_VALUE', p_segment2);
768: hr_utility.raise_error;
769: end if;
770: --
771: -- Ensure that the p_segment2 is valid and exists
764: if (length(p_segment2) > 80) then
765: hr_utility.set_message(801, 'HR_51459_EXA_US_ACCT_TYPE_LONG');
766: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
767: hr_utility.set_message_token('ARG_VALUE', p_segment2);
768: hr_utility.raise_error;
769: end if;
770: --
771: -- Ensure that the p_segment2 is valid and exists
772: --
769: end if;
770: --
771: -- Ensure that the p_segment2 is valid and exists
772: --
773: hr_utility.set_location(l_proc,7);
774: open fnd_com_look;
775: fetch fnd_com_look into l_dummy;
776: if fnd_com_look%notfound then
777: close fnd_com_look;
774: open fnd_com_look;
775: fetch fnd_com_look into l_dummy;
776: if fnd_com_look%notfound then
777: close fnd_com_look;
778: hr_utility.set_message(801, 'HR_51460_EXA_US_ACC_TYP_UNKNOW');
779: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
780: hr_utility.set_message_token('ARG_VALUE', p_segment2);
781: hr_utility.raise_error;
782: end if;
775: fetch fnd_com_look into l_dummy;
776: if fnd_com_look%notfound then
777: close fnd_com_look;
778: hr_utility.set_message(801, 'HR_51460_EXA_US_ACC_TYP_UNKNOW');
779: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
780: hr_utility.set_message_token('ARG_VALUE', p_segment2);
781: hr_utility.raise_error;
782: end if;
783: close fnd_com_look;
776: if fnd_com_look%notfound then
777: close fnd_com_look;
778: hr_utility.set_message(801, 'HR_51460_EXA_US_ACC_TYP_UNKNOW');
779: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
780: hr_utility.set_message_token('ARG_VALUE', p_segment2);
781: hr_utility.raise_error;
782: end if;
783: close fnd_com_look;
784: --
777: close fnd_com_look;
778: hr_utility.set_message(801, 'HR_51460_EXA_US_ACC_TYP_UNKNOW');
779: hr_utility.set_message_token('ARG_NAME', 'p_segment2');
780: hr_utility.set_message_token('ARG_VALUE', p_segment2);
781: hr_utility.raise_error;
782: end if;
783: close fnd_com_look;
784: --
785: hr_utility.set_location(' Leaving:'||l_proc, 10);
781: hr_utility.raise_error;
782: end if;
783: close fnd_com_look;
784: --
785: hr_utility.set_location(' Leaving:'||l_proc, 10);
786: --
787: end chk_us_segment2;
788: --
789: -- ----------------------------------------------------------------------------
820: l_proc varchar2(72) := g_package||'chk_us_segment3';
821: l_dummy number;
822: --
823: begin
824: hr_utility.set_location('Entering:'||l_proc, 5);
825: --
826: -- Ensure that segment3 is mandatory
827: --
828: hr_api.mandatory_arg_error
831: p_argument_value => p_segment3);
832: --
833: -- Ensure that the length does not exceed 60
834: --
835: hr_utility.set_location(l_proc,7);
836: if (length(p_segment3) > 60) then
837: hr_utility.set_message(801, 'HR_51461_EXA_US_ACCT_NO_LONG');
838: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
839: hr_utility.set_message_token('ARG_VALUE', p_segment3);
833: -- Ensure that the length does not exceed 60
834: --
835: hr_utility.set_location(l_proc,7);
836: if (length(p_segment3) > 60) then
837: hr_utility.set_message(801, 'HR_51461_EXA_US_ACCT_NO_LONG');
838: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
839: hr_utility.set_message_token('ARG_VALUE', p_segment3);
840: hr_utility.raise_error;
841: end if;
834: --
835: hr_utility.set_location(l_proc,7);
836: if (length(p_segment3) > 60) then
837: hr_utility.set_message(801, 'HR_51461_EXA_US_ACCT_NO_LONG');
838: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
839: hr_utility.set_message_token('ARG_VALUE', p_segment3);
840: hr_utility.raise_error;
841: end if;
842: --
835: hr_utility.set_location(l_proc,7);
836: if (length(p_segment3) > 60) then
837: hr_utility.set_message(801, 'HR_51461_EXA_US_ACCT_NO_LONG');
838: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
839: hr_utility.set_message_token('ARG_VALUE', p_segment3);
840: hr_utility.raise_error;
841: end if;
842: --
843: hr_utility.set_location(' Leaving:'||l_proc, 10);
836: if (length(p_segment3) > 60) then
837: hr_utility.set_message(801, 'HR_51461_EXA_US_ACCT_NO_LONG');
838: hr_utility.set_message_token('ARG_NAME', 'p_segment3');
839: hr_utility.set_message_token('ARG_VALUE', p_segment3);
840: hr_utility.raise_error;
841: end if;
842: --
843: hr_utility.set_location(' Leaving:'||l_proc, 10);
844: --
839: hr_utility.set_message_token('ARG_VALUE', p_segment3);
840: hr_utility.raise_error;
841: end if;
842: --
843: hr_utility.set_location(' Leaving:'||l_proc, 10);
844: --
845: end chk_us_segment3;
846: --
847: -- ----------------------------------------------------------------------------
880: l_proc varchar2(72) := g_package||'chk_us_segment4';
881: l_dummy number;
882: --
883: begin
884: hr_utility.set_location('Entering:'||l_proc, 5);
885: --
886: -- Ensure that segment4 is mandatory
887: --
888: hr_api.mandatory_arg_error
891: p_argument_value => p_segment4);
892: --
893: -- Ensure that the length does not exceed 9
894: --
895: hr_utility.set_location(l_proc,6);
896: if (length(p_segment4) > 9) then
897: hr_utility.set_message(801, 'HR_51462_EXA_US_TRAN_CODE_LONG');
898: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
899: hr_utility.set_message_token('ARG_VALUE', p_segment4);
893: -- Ensure that the length does not exceed 9
894: --
895: hr_utility.set_location(l_proc,6);
896: if (length(p_segment4) > 9) then
897: hr_utility.set_message(801, 'HR_51462_EXA_US_TRAN_CODE_LONG');
898: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
899: hr_utility.set_message_token('ARG_VALUE', p_segment4);
900: hr_utility.raise_error;
901: end if;
894: --
895: hr_utility.set_location(l_proc,6);
896: if (length(p_segment4) > 9) then
897: hr_utility.set_message(801, 'HR_51462_EXA_US_TRAN_CODE_LONG');
898: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
899: hr_utility.set_message_token('ARG_VALUE', p_segment4);
900: hr_utility.raise_error;
901: end if;
902: --
895: hr_utility.set_location(l_proc,6);
896: if (length(p_segment4) > 9) then
897: hr_utility.set_message(801, 'HR_51462_EXA_US_TRAN_CODE_LONG');
898: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
899: hr_utility.set_message_token('ARG_VALUE', p_segment4);
900: hr_utility.raise_error;
901: end if;
902: --
903: -- Ensure there is a number format
896: if (length(p_segment4) > 9) then
897: hr_utility.set_message(801, 'HR_51462_EXA_US_TRAN_CODE_LONG');
898: hr_utility.set_message_token('ARG_NAME', 'p_segment4');
899: hr_utility.set_message_token('ARG_VALUE', p_segment4);
900: hr_utility.raise_error;
901: end if;
902: --
903: -- Ensure there is a number format
904: --
901: end if;
902: --
903: -- Ensure there is a number format
904: --
905: hr_utility.set_location(l_proc,7);
906: l_segment4 := p_segment4;
907: --
908: hr_dbchkfmt.is_db_format
909: (p_value => l_segment4,
909: (p_value => l_segment4,
910: p_arg_name => 'segment4',
911: p_format => 'I');
912: --
913: hr_utility.set_location(' Leaving:'||l_proc, 10);
914: --
915: end chk_us_segment4;
916: --
917: -- ----------------------------------------------------------------------------
948: l_proc varchar2(72) := g_package||'chk_us_segment5';
949: l_dummy number;
950: --
951: begin
952: hr_utility.set_location('Entering:'||l_proc, 5);
953: --
954: -- Ensure that segment5 is mandatory
955: --
956: hr_api.mandatory_arg_error
959: p_argument_value => p_segment5);
960: --
961: -- Ensure that the length does not exceed 60
962: --
963: hr_utility.set_location(l_proc,7);
964: if (length(p_segment5) > 60) then
965: hr_utility.set_message(801, 'HR_51463_EXA_US_BANK_NAME_LONG');
966: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
967: hr_utility.set_message_token('ARG_VALUE', p_segment5);
961: -- Ensure that the length does not exceed 60
962: --
963: hr_utility.set_location(l_proc,7);
964: if (length(p_segment5) > 60) then
965: hr_utility.set_message(801, 'HR_51463_EXA_US_BANK_NAME_LONG');
966: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
967: hr_utility.set_message_token('ARG_VALUE', p_segment5);
968: hr_utility.raise_error;
969: end if;
962: --
963: hr_utility.set_location(l_proc,7);
964: if (length(p_segment5) > 60) then
965: hr_utility.set_message(801, 'HR_51463_EXA_US_BANK_NAME_LONG');
966: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
967: hr_utility.set_message_token('ARG_VALUE', p_segment5);
968: hr_utility.raise_error;
969: end if;
970: --
963: hr_utility.set_location(l_proc,7);
964: if (length(p_segment5) > 60) then
965: hr_utility.set_message(801, 'HR_51463_EXA_US_BANK_NAME_LONG');
966: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
967: hr_utility.set_message_token('ARG_VALUE', p_segment5);
968: hr_utility.raise_error;
969: end if;
970: --
971: hr_utility.set_location(' Leaving:'||l_proc, 10);
964: if (length(p_segment5) > 60) then
965: hr_utility.set_message(801, 'HR_51463_EXA_US_BANK_NAME_LONG');
966: hr_utility.set_message_token('ARG_NAME', 'p_segment5');
967: hr_utility.set_message_token('ARG_VALUE', p_segment5);
968: hr_utility.raise_error;
969: end if;
970: --
971: hr_utility.set_location(' Leaving:'||l_proc, 10);
972: --
967: hr_utility.set_message_token('ARG_VALUE', p_segment5);
968: hr_utility.raise_error;
969: end if;
970: --
971: hr_utility.set_location(' Leaving:'||l_proc, 10);
972: --
973: end chk_us_segment5;
974: --
975: -- ----------------------------------------------------------------------------
1006: l_proc varchar2(72) := g_package||'chk_us_segment6';
1007: l_dummy number;
1008: --
1009: begin
1010: hr_utility.set_location('Entering:'||l_proc, 5);
1011: --
1012: -- Ensure that segment6 is mandatory
1013: --
1014: hr_api.mandatory_arg_error
1017: p_argument_value => p_segment6);
1018: --
1019: -- Ensure that the length does not exceed 60
1020: --
1021: hr_utility.set_location(l_proc,7);
1022: if (length(p_segment6) > 60) then
1023: hr_utility.set_message(801, 'HR_51464_EXA_US_BANK_BRAN_LONG');
1024: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
1025: hr_utility.set_message_token('ARG_VALUE', p_segment6);
1019: -- Ensure that the length does not exceed 60
1020: --
1021: hr_utility.set_location(l_proc,7);
1022: if (length(p_segment6) > 60) then
1023: hr_utility.set_message(801, 'HR_51464_EXA_US_BANK_BRAN_LONG');
1024: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
1025: hr_utility.set_message_token('ARG_VALUE', p_segment6);
1026: hr_utility.raise_error;
1027: end if;
1020: --
1021: hr_utility.set_location(l_proc,7);
1022: if (length(p_segment6) > 60) then
1023: hr_utility.set_message(801, 'HR_51464_EXA_US_BANK_BRAN_LONG');
1024: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
1025: hr_utility.set_message_token('ARG_VALUE', p_segment6);
1026: hr_utility.raise_error;
1027: end if;
1028: --
1021: hr_utility.set_location(l_proc,7);
1022: if (length(p_segment6) > 60) then
1023: hr_utility.set_message(801, 'HR_51464_EXA_US_BANK_BRAN_LONG');
1024: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
1025: hr_utility.set_message_token('ARG_VALUE', p_segment6);
1026: hr_utility.raise_error;
1027: end if;
1028: --
1029: hr_utility.set_location(' Leaving:'||l_proc, 10);
1022: if (length(p_segment6) > 60) then
1023: hr_utility.set_message(801, 'HR_51464_EXA_US_BANK_BRAN_LONG');
1024: hr_utility.set_message_token('ARG_NAME', 'p_segment6');
1025: hr_utility.set_message_token('ARG_VALUE', p_segment6);
1026: hr_utility.raise_error;
1027: end if;
1028: --
1029: hr_utility.set_location(' Leaving:'||l_proc, 10);
1030: --
1025: hr_utility.set_message_token('ARG_VALUE', p_segment6);
1026: hr_utility.raise_error;
1027: end if;
1028: --
1029: hr_utility.set_location(' Leaving:'||l_proc, 10);
1030: --
1031: end chk_us_segment6;
1032: --
1033: -- ----------------------------------------------------------------------------
1087: l_n number; -- arg in error number (9..30)
1088: l_v pay_external_accounts.segment8%type; -- arg in error value (9..30)
1089: --
1090: begin
1091: hr_utility.set_location('Entering:'||l_proc, 5);
1092: --
1093: if p_segment7 is not null then l_n:=7; l_v:=p_segment7 ;raise l_err;end if;
1094: if p_segment8 is not null then l_n:=8; l_v:=p_segment8 ;raise l_err;end if;
1095: if p_segment9 is not null then l_n:=9; l_v:=p_segment9 ;raise l_err;end if;
1114: if p_segment28 is not null then l_n:=28;l_v:=p_segment28;raise l_err;end if;
1115: if p_segment29 is not null then l_n:=29;l_v:=p_segment29;raise l_err;end if;
1116: if p_segment30 is not null then l_n:=30;l_v:=p_segment30;raise l_err;end if;
1117: --
1118: hr_utility.set_location(' Leaving:'||l_proc, 10);
1119: --
1120: exception
1121: when l_err then
1122: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1118: hr_utility.set_location(' Leaving:'||l_proc, 10);
1119: --
1120: exception
1121: when l_err then
1122: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1123: hr_utility.set_message_token('ARG_NAME', 'p_segment'||to_char(l_n));
1124: hr_utility.set_message_token('ARG_VALUE', l_v);
1125: hr_utility.raise_error;
1126: end chk_us_segment7_30;
1119: --
1120: exception
1121: when l_err then
1122: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1123: hr_utility.set_message_token('ARG_NAME', 'p_segment'||to_char(l_n));
1124: hr_utility.set_message_token('ARG_VALUE', l_v);
1125: hr_utility.raise_error;
1126: end chk_us_segment7_30;
1127: --
1120: exception
1121: when l_err then
1122: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1123: hr_utility.set_message_token('ARG_NAME', 'p_segment'||to_char(l_n));
1124: hr_utility.set_message_token('ARG_VALUE', l_v);
1125: hr_utility.raise_error;
1126: end chk_us_segment7_30;
1127: --
1128: -- ----------------------------------------------------------------------------
1121: when l_err then
1122: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1123: hr_utility.set_message_token('ARG_NAME', 'p_segment'||to_char(l_n));
1124: hr_utility.set_message_token('ARG_VALUE', l_v);
1125: hr_utility.raise_error;
1126: end chk_us_segment7_30;
1127: --
1128: -- ----------------------------------------------------------------------------
1129: -- |-------------------------------< kf >-------------------------------------|
1151: and pbg.business_group_id = p_business_group_id
1152: and plr.rule_mode = to_char(p_rec.id_flex_num);
1153: --
1154: begin
1155: hr_utility.set_location('Entering:'||l_proc, 5);
1156: --
1157: -- Ensure that p_rec.id_flex_num and p_business_group_id are mandatory
1158: --
1159: hr_api.mandatory_arg_error
1170: fetch lcsel into l_legislation_code;
1171: if lcsel%notfound then
1172: close lcsel;
1173: -- *** TEMP error message ***
1174: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1175: hr_utility.set_message_token('ARG_NAME', 'id_flex_num');
1176: hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
1177: hr_utility.raise_error;
1178: end if;
1171: if lcsel%notfound then
1172: close lcsel;
1173: -- *** TEMP error message ***
1174: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1175: hr_utility.set_message_token('ARG_NAME', 'id_flex_num');
1176: hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
1177: hr_utility.raise_error;
1178: end if;
1179: close lcsel;
1172: close lcsel;
1173: -- *** TEMP error message ***
1174: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1175: hr_utility.set_message_token('ARG_NAME', 'id_flex_num');
1176: hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
1177: hr_utility.raise_error;
1178: end if;
1179: close lcsel;
1180: --
1173: -- *** TEMP error message ***
1174: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1175: hr_utility.set_message_token('ARG_NAME', 'id_flex_num');
1176: hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
1177: hr_utility.raise_error;
1178: end if;
1179: close lcsel;
1180: --
1181: if (l_legislation_code = 'GB') then
1249: p_segment30 => p_rec.segment30);
1250:
1251: else
1252: -- *** TEMP error message ***
1253: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1254: hr_utility.set_message_token('ARG_NAME', 'id_flex_num');
1255: hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
1256: hr_utility.raise_error;
1257: end if;
1250:
1251: else
1252: -- *** TEMP error message ***
1253: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1254: hr_utility.set_message_token('ARG_NAME', 'id_flex_num');
1255: hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
1256: hr_utility.raise_error;
1257: end if;
1258: --
1251: else
1252: -- *** TEMP error message ***
1253: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1254: hr_utility.set_message_token('ARG_NAME', 'id_flex_num');
1255: hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
1256: hr_utility.raise_error;
1257: end if;
1258: --
1259: hr_utility.set_location(' Leaving:'||l_proc, 10);
1252: -- *** TEMP error message ***
1253: hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
1254: hr_utility.set_message_token('ARG_NAME', 'id_flex_num');
1255: hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
1256: hr_utility.raise_error;
1257: end if;
1258: --
1259: hr_utility.set_location(' Leaving:'||l_proc, 10);
1260: --
1255: hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
1256: hr_utility.raise_error;
1257: end if;
1258: --
1259: hr_utility.set_location(' Leaving:'||l_proc, 10);
1260: --
1261: end kf;
1262: --
1263: end pay_exa_flex;