[Home] [Help]
29: l_proc VARCHAR2(72) := g_package||'chk_rate_type';
30: --
31: BEGIN
32: --
33: hr_utility.set_location('Entering : '||l_proc,10);
34: --
35: -- Only proceed with validation if :
36: -- a) The rate_type is changing or new
37: -- b) The value for rate_type is changing and not null
39: IF ( (p_grade_rule_id IS NULL) OR
40: ((p_grade_rule_id IS NOT NULL) AND
41: (pay_pgr_shd.g_old_rec.rate_type <> p_rate_type))) THEN
42: --
43: hr_utility.set_location(l_proc, 20);
44: --
45: -- Check that the rate type exists in HR_LOOKUPS
46: --
47: IF hr_api.not_exists_in_dt_hr_lookups
50: ,p_validation_end_date => p_validation_end_date
51: ,p_lookup_type => 'RATE_TYPE'
52: ,p_lookup_code => p_rate_type) THEN
53: --
54: hr_utility.set_message(800, 'HR_289589_INV_ASG_RATE_TYPE');
55: hr_utility.raise_error;
56: --
57: END IF;
58: --
51: ,p_lookup_type => 'RATE_TYPE'
52: ,p_lookup_code => p_rate_type) THEN
53: --
54: hr_utility.set_message(800, 'HR_289589_INV_ASG_RATE_TYPE');
55: hr_utility.raise_error;
56: --
57: END IF;
58: --
59: END IF;
57: END IF;
58: --
59: END IF;
60: --
61: hr_utility.set_location(' Leaving : '||l_proc,999);
62: --
63: EXCEPTION
64: --
65: WHEN app_exception.application_exception THEN
66: --
67: IF hr_multi_message.exception_add
68: (p_associated_column1 => 'PAY_GRADE_RULES_F.RATE_TYPE') THEN
69: --
70: hr_utility.set_location(' Leaving : '||l_proc,998);
71: --
72: RAISE;
73: --
74: END IF;
72: RAISE;
73: --
74: END IF;
75: --
76: hr_utility.set_location(' Leaving : '||l_proc,999);
77: --
78: END chk_rate_type;
79: --
80: -- ---------------------------------------------------------------------------
128: l_dummy_id NUMBER(15);
129: --
130: BEGIN
131: --
132: hr_utility.set_location('Entering : '||l_proc,10);
133: --
134: -- Only proceed with validation if :
135: -- a) The rate_type is changing or new
136: -- b) The value for rate_type is changing and not null
138: IF ( (p_grade_rule_id IS NULL) OR
139: ((p_grade_rule_id IS NOT NULL) AND
140: (pay_pgr_shd.g_old_rec.rate_id <> p_rate_id))) THEN
141: --
142: hr_utility.set_location(l_proc, 30);
143: --
144: -- Check that the rate exists.
145: --
146: OPEN csr_chk_rate;
149: IF csr_chk_rate%NOTFOUND THEN
150: --
151: CLOSE csr_chk_rate;
152: --
153: hr_utility.set_message(800, 'HR_289683_INVALID_ASG_RATE');
154: hr_utility.raise_error;
155: --
156: ELSE
157: --
150: --
151: CLOSE csr_chk_rate;
152: --
153: hr_utility.set_message(800, 'HR_289683_INVALID_ASG_RATE');
154: hr_utility.raise_error;
155: --
156: ELSE
157: --
158: CLOSE csr_chk_rate;
158: CLOSE csr_chk_rate;
159: --
160: END IF;
161: --
162: hr_utility.set_location(l_proc, 40);
163: --
164: -- Check that the rate type has not been defined
165: -- more than once for the grade, scale or assignment
166: --
172: CLOSE csr_duplicate_rate;
173: --
174: IF p_rate_type = 'A' THEN
175: --
176: hr_utility.set_message(800, 'HR_289684_ASG_RATE_USED');
177: hr_utility.raise_error;
178: --
179: ELSIF p_rate_type = 'SP' THEN
180: --
173: --
174: IF p_rate_type = 'A' THEN
175: --
176: hr_utility.set_message(800, 'HR_289684_ASG_RATE_USED');
177: hr_utility.raise_error;
178: --
179: ELSIF p_rate_type = 'SP' THEN
180: --
181: hr_utility.set_message(800, 'HR_289686_PROG_POINT_ALREADY_U');
177: hr_utility.raise_error;
178: --
179: ELSIF p_rate_type = 'SP' THEN
180: --
181: hr_utility.set_message(800, 'HR_289686_PROG_POINT_ALREADY_U');
182: hr_utility.raise_error;
183: --
184: ELSIF p_rate_type = 'G' THEN
185: --
178: --
179: ELSIF p_rate_type = 'SP' THEN
180: --
181: hr_utility.set_message(800, 'HR_289686_PROG_POINT_ALREADY_U');
182: hr_utility.raise_error;
183: --
184: ELSIF p_rate_type = 'G' THEN
185: --
186: hr_utility.set_message(800, 'HR_289685_GRADE_RATE_ALREADY_U');
182: hr_utility.raise_error;
183: --
184: ELSIF p_rate_type = 'G' THEN
185: --
186: hr_utility.set_message(800, 'HR_289685_GRADE_RATE_ALREADY_U');
187: hr_utility.raise_error;
188: --
189: END IF;
190: --
183: --
184: ELSIF p_rate_type = 'G' THEN
185: --
186: hr_utility.set_message(800, 'HR_289685_GRADE_RATE_ALREADY_U');
187: hr_utility.raise_error;
188: --
189: END IF;
190: --
191: ELSE
198: OPEN csr_dupl_asg_rate_type;
199: FETCH csr_dupl_asg_rate_type into l_dummy_id;
200: IF csr_dupl_asg_rate_type%found THEN
201: CLOSE csr_dupl_asg_rate_type;
202: hr_utility.set_message(800, 'HR_449036_ASGRAT_DUP_ASGRAT');
203: hr_utility.raise_error;
204: ELSE
205: CLOSE csr_dupl_asg_rate_type;
206: END IF;
199: FETCH csr_dupl_asg_rate_type into l_dummy_id;
200: IF csr_dupl_asg_rate_type%found THEN
201: CLOSE csr_dupl_asg_rate_type;
202: hr_utility.set_message(800, 'HR_449036_ASGRAT_DUP_ASGRAT');
203: hr_utility.raise_error;
204: ELSE
205: CLOSE csr_dupl_asg_rate_type;
206: END IF;
207: END IF;
208: END IF;
209: --
210: END IF;
211: --
212: hr_utility.set_location(' Leaving : '||l_proc,999);
213: --
214: EXCEPTION
215: --
216: WHEN app_exception.application_exception THEN
217: --
218: IF hr_multi_message.exception_add
219: (p_associated_column1 => 'PAY_GRADE_RULES_F.RATE_ID') THEN
220: --
221: hr_utility.set_location(' Leaving : '||l_proc,998);
222: --
223: RAISE;
224: --
225: END IF;
223: RAISE;
224: --
225: END IF;
226: --
227: hr_utility.set_location(' Leaving : '||l_proc,997);
228: --
229: END chk_rate_id;
230: --
231: -- ---------------------------------------------------------------------------
276: AND psp.spinal_point_id = l_spinal_point_id;
277: --
278: BEGIN
279: --
280: hr_utility.set_location('Entering:'||l_proc, 10);
281: --
282: hr_api.mandatory_arg_error
283: (p_api_name => l_proc
284: ,p_argument => 'grade_or_spinal_point_id'
283: (p_api_name => l_proc
284: ,p_argument => 'grade_or_spinal_point_id'
285: ,p_argument_value => p_grade_or_spinal_point_id);
286: --
287: hr_utility.set_location(l_proc, 20);
288: --
289: -- Only proceed with validation if :
290: -- a) The grade_or_spinal_point_id is changing or new
291: -- b) The value for grade_or_spinal_point_id is changing and not null
294: ((p_grade_rule_id IS NOT NULL) AND
295: (pay_pgr_shd.g_old_rec.grade_or_spinal_point_id <>
296: p_grade_or_spinal_point_id))) THEN
297: --
298: hr_utility.set_location(l_proc, 30);
299: --
300: -- IF the rate type is for Assignment Rates then
301: -- check that p_grade_or_spinal_point_id exists in
302: -- per_assignments_f and that the assignment is
302: -- per_assignments_f and that the assignment is
303: -- a CWK assignment.
304: --
305: IF p_rate_type = 'A' THEN
306: hr_utility.set_location(l_proc,40);
307: l_assignment_id := p_grade_or_spinal_point_id;
308: --
309: OPEN csr_chk_assignment_id;
310: FETCH csr_chk_assignment_id INTO l_dummy_id;
309: OPEN csr_chk_assignment_id;
310: FETCH csr_chk_assignment_id INTO l_dummy_id;
311: IF csr_chk_assignment_id%NOTFOUND THEN
312: CLOSE csr_chk_assignment_id;
313: hr_utility.set_message(800, 'HR_289541_PJU_INV_ASG_ID');
314: hr_utility.raise_error;
315: ELSE
316: CLOSE csr_chk_assignment_id;
317: END IF;
310: FETCH csr_chk_assignment_id INTO l_dummy_id;
311: IF csr_chk_assignment_id%NOTFOUND THEN
312: CLOSE csr_chk_assignment_id;
313: hr_utility.set_message(800, 'HR_289541_PJU_INV_ASG_ID');
314: hr_utility.raise_error;
315: ELSE
316: CLOSE csr_chk_assignment_id;
317: END IF;
318: --
321: -- per_grades
322: --
323: ELSIF p_rate_type = 'G' THEN
324: --
325: hr_utility.set_location(l_proc,60);
326: l_grade_id := p_grade_or_spinal_point_id;
327: --
328: OPEN csr_chk_grade_id;
329: FETCH csr_chk_grade_id INTO l_dummy_id;
328: OPEN csr_chk_grade_id;
329: FETCH csr_chk_grade_id INTO l_dummy_id;
330: IF csr_chk_grade_id%NOTFOUND THEN
331: CLOSE csr_chk_grade_id;
332: hr_utility.set_message(800, 'HR_PSF_INVALID_GRADE');
333: hr_utility.raise_error;
334: ELSE
335: CLOSE csr_chk_grade_id;
336: END IF;
329: FETCH csr_chk_grade_id INTO l_dummy_id;
330: IF csr_chk_grade_id%NOTFOUND THEN
331: CLOSE csr_chk_grade_id;
332: hr_utility.set_message(800, 'HR_PSF_INVALID_GRADE');
333: hr_utility.raise_error;
334: ELSE
335: CLOSE csr_chk_grade_id;
336: END IF;
337: --
340: -- per_spinal_points
341: --
342: ELSIF p_rate_type = 'SP' THEN
343: --
344: hr_utility.set_location(l_proc,80);
345: l_spinal_point_id := p_grade_or_spinal_point_id;
346: --
347: OPEN csr_chk_spinal_point_id;
348: FETCH csr_chk_spinal_point_id INTO l_dummy_id;
347: OPEN csr_chk_spinal_point_id;
348: FETCH csr_chk_spinal_point_id INTO l_dummy_id;
349: IF csr_chk_spinal_point_id%NOTFOUND THEN
350: CLOSE csr_chk_spinal_point_id;
351: hr_utility.set_message(800, 'HR_289687_SPINAL_POINT_INV');
352: hr_utility.raise_error;
353: ELSE
354: CLOSE csr_chk_spinal_point_id;
355: END IF;
348: FETCH csr_chk_spinal_point_id INTO l_dummy_id;
349: IF csr_chk_spinal_point_id%NOTFOUND THEN
350: CLOSE csr_chk_spinal_point_id;
351: hr_utility.set_message(800, 'HR_289687_SPINAL_POINT_INV');
352: hr_utility.raise_error;
353: ELSE
354: CLOSE csr_chk_spinal_point_id;
355: END IF;
356: END IF;
355: END IF;
356: END IF;
357: END IF;
358: --
359: hr_utility.set_location('Leaving: '||l_proc,997);
360: --
361: EXCEPTION
362: --
363: WHEN app_exception.application_exception THEN
362: --
363: WHEN app_exception.application_exception THEN
364: IF hr_multi_message.exception_add
365: (p_associated_column1 => 'PAY_GRADE_RULES_F.GRADE_OR_SPINAL_POINT_ID') THEN
366: hr_utility.set_location(' Leaving: '|| l_proc,998);
367: --
368: RAISE;
369: --
370: END IF;
367: --
368: RAISE;
369: --
370: END IF;
371: hr_utility.set_location(' Leaving: '||l_proc,999);
372: --
373: END chk_grade_or_spinal_point_id;
374: --
375: -- ---------------------------------------------------------------------------
399: WHERE pr.rate_id = p_rate_id;
400: --
401: BEGIN
402: --
403: hr_utility.set_location('Entering : '||l_proc,10);
404: --
405: -- Only proceed with validation if :
406: -- a) The currency is changing or new
407: -- b) The value for currency is changing and not null
409: IF ( (p_grade_rule_id IS NULL) OR
410: ((p_grade_rule_id IS NOT NULL) AND
411: (pay_pgr_shd.g_old_rec.currency_code <> p_currency_code))) THEN
412: --
413: hr_utility.set_location(l_proc, 30);
414: --
415: -- If the rate is for assignment rates then check
416: -- the currency code is not null and exists.
417: --
416: -- the currency code is not null and exists.
417: --
418: IF p_rate_type = 'A' THEN
419: --
420: hr_utility.set_location(l_proc, 40);
421: --
422: -- If the currency code is NULL then raise an error
423: -- as the currency code is mandatory when the rate_type is for
424: -- assignment rates.
424: -- assignment rates.
425: --
426: IF p_currency_code IS NULL THEN
427: --
428: hr_utility.set_message(800, 'HR_289688_CURRENCY_CODE_NULL');
429: hr_utility.raise_error;
430: --
431: -- If the currency code is not null then check that
432: -- the currency code exists.
425: --
426: IF p_currency_code IS NULL THEN
427: --
428: hr_utility.set_message(800, 'HR_289688_CURRENCY_CODE_NULL');
429: hr_utility.raise_error;
430: --
431: -- If the currency code is not null then check that
432: -- the currency code exists.
433: --
432: -- the currency code exists.
433: --
434: ELSE
435: --
436: hr_utility.set_location(l_proc, 50);
437: --
438: OPEN csr_chk_currency_code;
439: FETCH csr_chk_currency_code INTO l_dummy_code;
440: --
441: IF csr_chk_currency_code%NOTFOUND THEN
442: --
443: CLOSE csr_chk_currency_code;
444: --
445: hr_utility.set_message(800, 'HR_289705_INVALID_CURRENCY');
446: hr_utility.raise_error;
447: --
448: ELSE
449: --
442: --
443: CLOSE csr_chk_currency_code;
444: --
445: hr_utility.set_message(800, 'HR_289705_INVALID_CURRENCY');
446: hr_utility.raise_error;
447: --
448: ELSE
449: --
450: CLOSE csr_chk_currency_code;
452: END IF;
453: --
454: END IF;
455: --
456: hr_utility.set_location(l_proc, 60);
457: --
458: -- If the rate is a Grade or Scale Rate and
459: -- the currency code has been populated then
460: -- validate it.
460: -- validate it.
461: --
462: ELSIF p_rate_type <> 'A' THEN
463: --
464: hr_utility.set_location(l_proc, 70);
465: --
466: -- Fetch the rate unit of measure for the pay rate
467: --
468: OPEN csr_get_rate_uom;
474: -- currency code has been populated then raise an error.
475: --
476: IF l_rate_uom <> 'M' AND p_currency_code IS NOT NULL THEN
477: --
478: hr_utility.set_message(800, 'HR_289689_CCY_CODE_NOT_NULL');
479: hr_utility.raise_error;
480: --
481: -- If the unit of measure has been set to Money and the
482: -- currency code has NOT been populated then raise an error.
475: --
476: IF l_rate_uom <> 'M' AND p_currency_code IS NOT NULL THEN
477: --
478: hr_utility.set_message(800, 'HR_289689_CCY_CODE_NOT_NULL');
479: hr_utility.raise_error;
480: --
481: -- If the unit of measure has been set to Money and the
482: -- currency code has NOT been populated then raise an error.
483: --
487: -- for rate type G and SP the currency is optional.
488: --
489: IF p_rate_type <> 'G' and p_rate_type <> 'SP' then
490: --
491: hr_utility.set_message(800, 'HR_289688_CURRENCY_CODE_NULL');
492: hr_utility.raise_error;
493: --
494: END IF;
495: --
488: --
489: IF p_rate_type <> 'G' and p_rate_type <> 'SP' then
490: --
491: hr_utility.set_message(800, 'HR_289688_CURRENCY_CODE_NULL');
492: hr_utility.raise_error;
493: --
494: END IF;
495: --
496: -- Fix for bug 3380687 ends here.
500: -- code exists.
501: --
502: ELSIF l_rate_uom = 'M' AND p_currency_code IS NOT NULL THEN
503: --
504: hr_utility.set_location(l_proc, 80);
505: --
506: OPEN csr_chk_currency_code;
507: FETCH csr_chk_currency_code INTO l_dummy_code;
508: --
509: IF csr_chk_currency_code%NOTFOUND THEN
510: --
511: CLOSE csr_chk_currency_code;
512: --
513: hr_utility.set_message(800, 'HR_289705_INVALID_CURRENCY');
514: hr_utility.raise_error;
515: --
516: ELSE
517: --
510: --
511: CLOSE csr_chk_currency_code;
512: --
513: hr_utility.set_message(800, 'HR_289705_INVALID_CURRENCY');
514: hr_utility.raise_error;
515: --
516: ELSE
517: --
518: CLOSE csr_chk_currency_code;
524: END IF;
525: --
526: END IF;
527: --
528: hr_utility.set_location(' Leaving : '||l_proc,999);
529: --
530: EXCEPTION
531: --
532: WHEN app_exception.application_exception THEN
533: --
534: IF hr_multi_message.exception_add
535: (p_associated_column1 => 'PAY_GRADE_RULES_F.CURRENCY_CODE') THEN
536: --
537: hr_utility.set_location(' Leaving : '||l_proc,998);
538: --
539: RAISE;
540: --
541: END IF;
539: RAISE;
540: --
541: END IF;
542: --
543: hr_utility.set_location(' Leaving : '||l_proc,999);
544: --
545: END chk_currency_code;
546: --
547: -- ---------------------------------------------------------------------------
590: --
591:
592: BEGIN
593: --
594: hr_utility.set_location('Entering : '||l_proc,10);
595: --
596: open csr_get_rate_uom;
597: fetch csr_get_rate_uom into l_format;
598: close csr_get_rate_uom;
600: -- Rate UOM is not null column. Therefore no need to check it again.
601: --
602:
603: /* changes for bug 6016428 starts */
604: hr_utility.set_location('Getting business Group ID ',11);
605: select business_group_id
606: into l_bg_id
607: from pay_rates
608: where rate_id = p_rate_id;
606: into l_bg_id
607: from pay_rates
608: where rate_id = p_rate_id;
609: --
610: hr_utility.set_location('Getting default Currency code for business Group ID ',12);
611: OPEN csr_bg_curr_cd(l_bg_id);
612: FETCH csr_bg_curr_cd INTO l_bg_curr_code;
613: CLOSE csr_bg_curr_cd;
614: /* changes for bug 6016428 ends */
615:
616: --
617: if p_value is not null then
618: --
619: hr_utility.set_location(l_proc, 15);
620: --for bug 5882341, checkformat require p_value argument in a formated
621: -- string not in a canonical string, so we use the changeformat function
622: -- which change the canonical string into Formated string..
623: -- insted of l_input := p_value; we are using following call
640: end if;
641: --
642: if p_maximum is not null then
643: --
644: hr_utility.set_location(l_proc, 20);
645: --start changes for bug 6346419
646: --l_input := p_maximum;
647: hr_chkfmt.changeformat( input =>p_maximum,
648: output => l_input,
661: end if;
662: --
663: if p_minimum is not null then
664: --
665: hr_utility.set_location(l_proc, 30);
666: --start changes for bug 6346419
667: --l_input := p_minimum;
668: hr_chkfmt.changeformat( input =>p_minimum,
669: output => l_input,
682: end if;
683: --
684: if p_mid_value is not null then
685: --
686: hr_utility.set_location(l_proc, 40);
687: --start changes for bug 6346419
688: --l_input := p_mid_value;
689: hr_chkfmt.changeformat( input =>p_mid_value,
690: output => l_input,
701: ,nvl(p_curcode, l_bg_curr_code)); -- Bug 6016428
702: --
703: end if;
704: --
705: hr_utility.set_location('Leaving : '||l_proc,999);
706: --
707: END chk_values_format;
708: --
709: -- ---------------------------------------------------------------------------
717: l_value NUMBER;
718: --
719: BEGIN
720: --
721: hr_utility.set_location('Entering : '||l_proc,10);
722: --
723: -- Copy the value into a numeric variable.
724: -- If p_value contains anything apart from numbers
725: -- then a VALUE_ERROR will be raised and
726: -- trapped in the exception handler.
727: --
728: l_value := p_value;
729: --
730: hr_utility.set_location('Leaving : '||l_proc,999);
731: --
732: EXCEPTION
733: --
734: WHEN VALUE_ERROR THEN
732: EXCEPTION
733: --
734: WHEN VALUE_ERROR THEN
735: --
736: hr_utility.set_message(800, 'HR_289690_ASS_RATE_VAL_NOT_NUM');
737: hr_utility.raise_error;
738: --
739: END chk_assignment_rate_value;
740: --
733: --
734: WHEN VALUE_ERROR THEN
735: --
736: hr_utility.set_message(800, 'HR_289690_ASS_RATE_VAL_NOT_NUM');
737: hr_utility.raise_error;
738: --
739: END chk_assignment_rate_value;
740: --
741: -- ---------------------------------------------------------------------------
754: l_value NUMBER;
755: --
756: BEGIN
757: --
758: hr_utility.set_location('Entering : '||l_proc,10);
759: --
760: -- Only proceed with validation if :
761: -- a) Inserting or
762: -- b) The value for value has changed
764: IF ( (p_grade_rule_id IS NULL) OR
765: ((p_grade_rule_id IS NOT NULL) AND
766: (pay_pgr_shd.g_old_rec.value <> p_value))) THEN
767: --
768: hr_utility.set_location(l_proc, 30);
769: --
770: -- If the rate is for assignment rates and the
771: -- value field is null then raise an error.
772: --
771: -- value field is null then raise an error.
772: --
773: IF p_rate_type = 'A' THEN
774: --
775: hr_utility.set_location(l_proc, 40);
776: --
777: IF p_value IS NULL
778: OR sign(p_value) = -1 THEN
779: --
776: --
777: IF p_value IS NULL
778: OR sign(p_value) = -1 THEN
779: --
780: hr_utility.set_message(800, 'HR_289691_ASS_RATE_VALUE_NULL');
781: hr_utility.raise_error;
782: --
783: ELSE
784: --
777: IF p_value IS NULL
778: OR sign(p_value) = -1 THEN
779: --
780: hr_utility.set_message(800, 'HR_289691_ASS_RATE_VALUE_NULL');
781: hr_utility.raise_error;
782: --
783: ELSE
784: --
785: hr_utility.set_location(l_proc, 50);
781: hr_utility.raise_error;
782: --
783: ELSE
784: --
785: hr_utility.set_location(l_proc, 50);
786: --
787: -- Check that the p_value is in numeric format
788: --
789: chk_assignment_rate_value(p_value => p_value);
794: -- the currency and value field combination.
795: --
796: ELSIF p_rate_type <> 'A' THEN
797: --
798: hr_utility.set_location(l_proc, 60);
799: --
800: -- If the currency code has been entered then
801: -- check that the value field has also been entered.
802: --
806: null;
807: /*
808: IF p_currency_code IS NOT NULL and p_value IS NULL THEN
809: --
810: hr_utility.set_message(800, 'HR_289706_VALUE_NULL');
811: hr_utility.raise_error;
812: --
813: END IF;
814: */
807: /*
808: IF p_currency_code IS NOT NULL and p_value IS NULL THEN
809: --
810: hr_utility.set_message(800, 'HR_289706_VALUE_NULL');
811: hr_utility.raise_error;
812: --
813: END IF;
814: */
815: --
818: END IF;
819: --
820: END IF;
821: --
822: hr_utility.set_location(' Leaving : '||l_proc,997);
823: --
824: EXCEPTION
825: --
826: WHEN app_exception.application_exception THEN
827: --
828: IF hr_multi_message.exception_add
829: (p_associated_column1 => 'PAY_GRADE_RULES_F.VALUE') THEN
830: --
831: hr_utility.set_location(' Leaving : '||l_proc,998);
832: --
833: RAISE;
834: --
835: END IF;
833: RAISE;
834: --
835: END IF;
836: --
837: hr_utility.set_location(' Leaving : '||l_proc,999);
838: --
839: END chk_value;
840: --
841: -- Fix for bug 3049789 starts here.
855: l_value NUMBER;
856: --
857: BEGIN
858: --
859: hr_utility.set_location('Entering : '||l_proc,10);
860: --
861: -- Only proceed with validation if :
862: -- a) Inserting or
863: -- b) The value for value has changed
867: (nvl(pay_pgr_shd.g_old_rec.value,-1) <> nvl(p_value,-1) OR
868: nvl(pay_pgr_shd.g_old_rec.minimum,-1) <> nvl(p_minimum,-1) OR
869: nvl(pay_pgr_shd.g_old_rec.maximum,-1) <> nvl(p_maximum,-1) ))) THEN
870: --
871: hr_utility.set_location(l_proc, 30);
872: --
873: -- If the rate is for Grade rates, either value OR a minimum and Maximum
874: -- should be specified.
875: --
874: -- should be specified.
875: --
876: IF p_rate_type = 'G' THEN
877: --
878: hr_utility.set_location(l_proc, 40);
879: IF p_value IS NULL and
880: (p_minimum IS NULL or p_maximum IS NULL) THEN
881: --
882: hr_utility.set_message(800, 'PER_449141_VALUE_OR_MIN_MAX');
878: hr_utility.set_location(l_proc, 40);
879: IF p_value IS NULL and
880: (p_minimum IS NULL or p_maximum IS NULL) THEN
881: --
882: hr_utility.set_message(800, 'PER_449141_VALUE_OR_MIN_MAX');
883: hr_utility.raise_error;
884: --
885: END IF;
886: --
879: IF p_value IS NULL and
880: (p_minimum IS NULL or p_maximum IS NULL) THEN
881: --
882: hr_utility.set_message(800, 'PER_449141_VALUE_OR_MIN_MAX');
883: hr_utility.raise_error;
884: --
885: END IF;
886: --
887: END IF;
887: END IF;
888: --
889: END IF;
890: --
891: hr_utility.set_location(' Leaving : '||l_proc,997);
892: --
893: EXCEPTION
894: --
895: WHEN app_exception.application_exception THEN
896: --
897: IF hr_multi_message.exception_add
898: (p_associated_column1 => 'PAY_GRADE_RULES_F.VALUE') THEN
899: --
900: hr_utility.set_location(' Leaving : '||l_proc,998);
901: --
902: RAISE;
903: --
904: END IF;
902: RAISE;
903: --
904: END IF;
905: --
906: hr_utility.set_location(' Leaving : '||l_proc,999);
907: --
908: END chk_value_min_max_comb;
909: --
910: -- Fix for bug 3049789 ends here.
933: l_proc varchar2(72) := g_package||'set_security_group_id';
934: --
935: begin
936: --
937: hr_utility.set_location('Entering:'|| l_proc, 10);
938: --
939: -- Ensure that all the mandatory parameter are not null
940: --
941: hr_api.mandatory_arg_error
968: (p_security_group_id => l_security_group_id
969: );
970: end if;
971: --
972: hr_utility.set_location(' Leaving:'|| l_proc, 20);
973: --
974: end set_security_group_id;
975: --
976: -- ---------------------------------------------------------------------------
997: l_proc varchar2(72) := g_package||'return_legislation_code';
998: --
999: Begin
1000: --
1001: hr_utility.set_location('Entering:'|| l_proc, 10);
1002: --
1003: -- Ensure that all the mandatory parameter are not null
1004: --
1005: hr_api.mandatory_arg_error
1015: -- call to this function. Just return the value in the global
1016: -- variable.
1017: --
1018: l_legislation_code := pay_pgr_bus.g_legislation_code;
1019: hr_utility.set_location(l_proc, 20);
1020: else
1021: --
1022: -- The ID is different to the last call to this function
1023: -- or this is the first call to this function.
1032: close csr_leg_code;
1033: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
1034: fnd_message.raise_error;
1035: end if;
1036: hr_utility.set_location(l_proc,30);
1037: --
1038: -- Set the global variables so the values are
1039: -- available for the next call to this function.
1040: --
1041: close csr_leg_code;
1042: pay_pgr_bus.g_grade_rule_id := p_grade_rule_id;
1043: pay_pgr_bus.g_legislation_code := l_legislation_code;
1044: end if;
1045: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1046: return l_legislation_code;
1047: end return_legislation_code;
1048: --
1049: -- ----------------------------------------------------------------------------
1220: l_proc varchar2(72) := g_package||'dt_delete_validate';
1221: --
1222: Begin
1223: --
1224: hr_utility.set_location('Entering:'||l_proc, 10);
1225: --
1226: -- Ensure that the p_datetrack_mode argument is not null
1227: --
1228: hr_api.mandatory_arg_error
1230: ,p_argument => 'datetrack_mode'
1231: ,p_argument_value => p_datetrack_mode
1232: );
1233: --
1234: hr_utility.set_location('Entering:'||l_proc, 20);
1235: --
1236: -- Only perform the validation if the datetrack mode is either
1237: -- DELETE or ZAP
1238: --
1238: --
1239: If (p_datetrack_mode = hr_api.g_delete or
1240: p_datetrack_mode = hr_api.g_zap) then
1241: --
1242: hr_utility.set_location('Entering:'||l_proc, 30);
1243: --
1244: -- Ensure the arguments are not null
1245: --
1246: hr_api.mandatory_arg_error
1248: ,p_argument => 'validation_start_date'
1249: ,p_argument_value => p_validation_start_date
1250: );
1251: --
1252: hr_utility.set_location('Entering:'||l_proc, 40);
1253: --
1254: hr_api.mandatory_arg_error
1255: (p_api_name => l_proc
1256: ,p_argument => 'validation_end_date'
1292: l_proc varchar2(72) := g_package||'insert_validate';
1293: --
1294: Begin
1295: --
1296: hr_utility.set_location('Entering:'||l_proc, 10);
1297: --
1298: -- Call all supporting business operations
1299: --
1300: hr_api.validate_bus_grp_id
1301: (p_business_group_id => p_rec.business_group_id
1302: ,p_associated_column1 => pay_pgr_shd.g_tab_nam
1303: || '.BUSINESS_GROUP_ID');
1304: --
1305: hr_utility.set_location(l_proc, 20);
1306: --
1307: -- After validating the set of important attributes,
1308: -- if Multiple Message detection is enabled and at least
1309: -- one error has been found then abort further validation.
1309: -- one error has been found then abort further validation.
1310: --
1311: hr_multi_message.end_validation_set;
1312: --
1313: hr_utility.set_location(l_proc, 30);
1314: --
1315: --
1316: -- Validate Dependent Attributes
1317: --
1322: ,p_object_version_number => p_rec.object_version_number
1323: ,p_validation_start_date => p_validation_start_date
1324: ,p_validation_end_date => p_validation_end_date);
1325: --
1326: hr_utility.set_location(l_proc, 40);
1327: --
1328: pay_pgr_bus.chk_grade_or_spinal_point_id
1329: (p_grade_rule_id => p_rec.grade_rule_id
1330: ,p_business_group_id => p_rec.business_group_id
1332: ,p_grade_or_spinal_point_id => p_rec.grade_or_spinal_point_id
1333: ,p_rate_type => p_rec.rate_type
1334: ,p_object_version_number => p_rec.object_version_number);
1335: --
1336: hr_utility.set_location(l_proc, 50);
1337: --
1338: pay_pgr_bus.chk_currency_code
1339: (p_rate_type => p_rec.rate_type
1340: ,p_currency_code => p_rec.currency_code
1342: ,p_rate_id => p_rec.rate_id
1343: ,p_effective_date => p_effective_date
1344: ,p_object_version_number => p_rec.object_version_number);
1345: --
1346: hr_utility.set_location(l_proc, 60);
1347: --
1348: pay_pgr_bus.chk_value
1349: (p_rate_type => p_rec.rate_type
1350: ,p_value => p_rec.value
1352: ,p_currency_code => p_rec.currency_code
1353: ,p_effective_date => p_effective_date
1354: ,p_object_version_number => p_rec.object_version_number);
1355: --
1356: hr_utility.set_location(l_proc, 70);
1357: --
1358: -- Fix for bug 3049789 starts here.
1359: --
1360: pay_pgr_bus.chk_value_min_max_comb
1363: ,p_value => p_rec.value
1364: ,p_minimum => p_rec.minimum
1365: ,p_maximum => p_rec.maximum);
1366: --
1367: hr_utility.set_location(l_proc, 80);
1368: --
1369: -- Fix for bug 3049789 ends here.
1370: --
1371: pay_pgr_bus.chk_rate_id
1376: ,p_effective_date => p_effective_date
1377: ,p_grade_rule_id => p_rec.grade_rule_id
1378: ,p_object_version_number => p_rec.object_version_number);
1379: --
1380: hr_utility.set_location(l_proc, 90);
1381: --
1382: pay_pgr_bus.chk_values_format
1383: (p_rate_id => p_rec.rate_id
1384: ,p_rate_type => p_rec.rate_type
1387: ,p_maximum => p_rec.maximum
1388: ,p_mid_value => p_rec.mid_value
1389: ,p_curcode => p_rec.currency_code);
1390: --
1391: hr_utility.set_location(' Leaving:'||l_proc, 999);
1392: --
1393: End insert_validate;
1394: --
1395: -- ----------------------------------------------------------------------------
1405: --
1406: l_proc varchar2(72) := g_package||'update_validate';
1407: --
1408: Begin
1409: hr_utility.set_location('Entering:'||l_proc, 10);
1410: --
1411: -- Call all supporting business operations
1412: --
1413: hr_api.validate_bus_grp_id
1414: (p_business_group_id => p_rec.business_group_id
1415: ,p_associated_column1 => pay_pgr_shd.g_tab_nam
1416: || '.BUSINESS_GROUP_ID');
1417: --
1418: hr_utility.set_location(l_proc, 20);
1419: --
1420: --
1421: -- After validating the set of important attributes,
1422: -- if Multiple Message detection is enabled and at least
1423: -- one error has been found then abort further validation.
1424: --
1425: hr_multi_message.end_validation_set;
1426: --
1427: hr_utility.set_location(l_proc, 30);
1428: --
1429: -- Validate Dependent Attributes
1430: --
1431: -- Call the datetrack update integrity operation
1435: ,p_validation_start_date => p_validation_start_date
1436: ,p_validation_end_date => p_validation_end_date
1437: );
1438: --
1439: hr_utility.set_location(l_proc, 40);
1440: --
1441: chk_non_updateable_args
1442: (p_effective_date => p_effective_date
1443: ,p_rec => p_rec
1442: (p_effective_date => p_effective_date
1443: ,p_rec => p_rec
1444: );
1445: --
1446: hr_utility.set_location(l_proc, 50);
1447: --
1448: -- Validate Dependent Attributes
1449: --
1450: pay_pgr_bus.chk_rate_type
1454: ,p_object_version_number => p_rec.object_version_number
1455: ,p_validation_start_date => p_validation_start_date
1456: ,p_validation_end_date => p_validation_end_date);
1457: --
1458: hr_utility.set_location(l_proc, 60);
1459: --
1460: pay_pgr_bus.chk_grade_or_spinal_point_id
1461: (p_grade_rule_id => p_rec.grade_rule_id
1462: ,p_business_group_id => p_rec.business_group_id
1464: ,p_grade_or_spinal_point_id => p_rec.grade_or_spinal_point_id
1465: ,p_rate_type => p_rec.rate_type
1466: ,p_object_version_number => p_rec.object_version_number);
1467: --
1468: hr_utility.set_location(l_proc, 70);
1469: --
1470: pay_pgr_bus.chk_currency_code
1471: (p_rate_type => p_rec.rate_type
1472: ,p_currency_code => p_rec.currency_code
1474: ,p_rate_id => p_rec.rate_id
1475: ,p_effective_date => p_effective_date
1476: ,p_object_version_number => p_rec.object_version_number);
1477: --
1478: hr_utility.set_location(l_proc, 80);
1479: --
1480: pay_pgr_bus.chk_value
1481: (p_rate_type => p_rec.rate_type
1482: ,p_value => p_rec.value
1484: ,p_currency_code => p_rec.currency_code
1485: ,p_effective_date => p_effective_date
1486: ,p_object_version_number => p_rec.object_version_number);
1487: --
1488: hr_utility.set_location(l_proc,90);
1489: --
1490: -- Fix for bug 3049789 starts here.
1491: --
1492: pay_pgr_bus.chk_value_min_max_comb
1495: ,p_value => p_rec.value
1496: ,p_minimum => p_rec.minimum
1497: ,p_maximum => p_rec.maximum);
1498: --
1499: hr_utility.set_location(l_proc, 100);
1500: --
1501: -- Fix for bug 3049789 ends here.
1502: --
1503: pay_pgr_bus.chk_rate_id
1508: ,p_effective_date => p_effective_date
1509: ,p_grade_rule_id => p_rec.grade_rule_id
1510: ,p_object_version_number => p_rec.object_version_number);
1511: --
1512: hr_utility.set_location(l_proc, 110);
1513: --
1514: pay_pgr_bus.chk_values_format
1515: (p_rate_id => p_rec.rate_id
1516: ,p_rate_type => p_rec.rate_type
1519: ,p_maximum => p_rec.maximum
1520: ,p_mid_value => p_rec.mid_value
1521: ,p_curcode => p_rec.currency_code);
1522: --
1523: hr_utility.set_location(' Leaving:'||l_proc, 999);
1524: --
1525: End update_validate;
1526: --
1527: -- ----------------------------------------------------------------------------
1537: --
1538: l_proc varchar2(72) := g_package||'delete_validate';
1539: --
1540: Begin
1541: hr_utility.set_location('Entering:'||l_proc, 5);
1542: --
1543: -- Call all supporting business operations
1544: --
1545: dt_delete_validate
1549: ,p_grade_rule_id => p_rec.grade_rule_id
1550: );
1551: --
1552:
1553: hr_utility.set_location(' Leaving:'||l_proc, 20);
1554:
1555: End delete_validate;
1556: --
1557: end pay_pgr_bus;