17: -- |----------------------------< chk_rate_type >----------------------------|
18: -- ---------------------------------------------------------------------------
19: --
20: PROCEDURE chk_rate_type
21: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
22: ,p_effective_date IN DATE
23: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
24: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE
25: ,p_validation_start_date IN DATE
19: --
20: PROCEDURE chk_rate_type
21: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
22: ,p_effective_date IN DATE
23: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
24: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE
25: ,p_validation_start_date IN DATE
26: ,p_validation_end_date IN DATE) IS
27: --
20: PROCEDURE chk_rate_type
21: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
22: ,p_effective_date IN DATE
23: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
24: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE
25: ,p_validation_start_date IN DATE
26: ,p_validation_end_date IN DATE) IS
27: --
28: l_api_updating BOOLEAN;
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;
81: -- |-----------------------------< chk_rate_id >-----------------------------|
82: -- ---------------------------------------------------------------------------
83: --
84: PROCEDURE chk_rate_id
85: (p_rate_id IN pay_grade_rules_f.rate_id%TYPE
86: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
87: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
88: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
89: ,p_effective_date IN DATE
82: -- ---------------------------------------------------------------------------
83: --
84: PROCEDURE chk_rate_id
85: (p_rate_id IN pay_grade_rules_f.rate_id%TYPE
86: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
87: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
88: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
89: ,p_effective_date IN DATE
90: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
83: --
84: PROCEDURE chk_rate_id
85: (p_rate_id IN pay_grade_rules_f.rate_id%TYPE
86: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
87: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
88: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
89: ,p_effective_date IN DATE
90: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
91: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
84: PROCEDURE chk_rate_id
85: (p_rate_id IN pay_grade_rules_f.rate_id%TYPE
86: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
87: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
88: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
89: ,p_effective_date IN DATE
90: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
91: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
92: --
86: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
87: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
88: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
89: ,p_effective_date IN DATE
90: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
91: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
92: --
93: CURSOR csr_chk_rate IS
94: SELECT rate_id
87: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
88: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
89: ,p_effective_date IN DATE
90: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
91: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
92: --
93: CURSOR csr_chk_rate IS
94: SELECT rate_id
95: FROM pay_rates
97: AND business_group_id = p_business_group_id;
98: --
99: CURSOR csr_duplicate_rate IS
100: SELECT rate_id
101: FROM pay_grade_rules_f pgr
102: WHERE pgr.rate_id = p_rate_id
103: AND pgr.grade_or_spinal_point_id = p_grade_or_spinal_point_id
104: AND ( (p_grade_rule_id IS NULL
105: AND pgr.effective_end_date > p_effective_date)
107: AND pgr.grade_rule_id <> p_grade_rule_id));
108: --
109: CURSOR csr_dupl_asg_rate_type IS
110: SELECT pr1.rate_id
111: FROM pay_grade_rules_f pgr
112: ,pay_rates pr1
113: ,pay_rates pr2
114: WHERE pgr.grade_or_spinal_point_id = p_grade_or_spinal_point_id
115: AND ( (p_grade_rule_id IS NULL
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;
232: -- |-------------------< chk_grade_or_spinal_point_id >----------------------|
233: -- ---------------------------------------------------------------------------
234: --
235: PROCEDURE chk_grade_or_spinal_point_id
236: (p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
237: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
238: ,p_effective_date IN DATE
239: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
240: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
233: -- ---------------------------------------------------------------------------
234: --
235: PROCEDURE chk_grade_or_spinal_point_id
236: (p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
237: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
238: ,p_effective_date IN DATE
239: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
240: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
241: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
235: PROCEDURE chk_grade_or_spinal_point_id
236: (p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
237: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
238: ,p_effective_date IN DATE
239: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
240: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
241: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
242: --
243: -- Delcare Local Variables
236: (p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
237: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
238: ,p_effective_date IN DATE
239: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
240: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
241: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
242: --
243: -- Delcare Local Variables
244: --
237: ,p_business_group_id IN pay_grade_rules_f.business_group_id%TYPE
238: ,p_effective_date IN DATE
239: ,p_grade_or_spinal_point_id IN pay_grade_rules_f.grade_or_spinal_point_id%TYPE
240: ,p_rate_type IN pay_grade_rules_f.rate_type%TYPE
241: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
242: --
243: -- Delcare Local Variables
244: --
245: l_proc VARCHAR2(72) := g_package || 'chk_grade_or_spinal_point_id';
361: EXCEPTION
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: --
376: -- |--------------------------< chk_currency_code >--------------------------|
377: -- ---------------------------------------------------------------------------
378: --
379: PROCEDURE chk_currency_code
380: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
381: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
382: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
383: ,p_rate_id IN pay_grade_rules_f.rate_id%TYPE
384: ,p_effective_date IN DATE
377: -- ---------------------------------------------------------------------------
378: --
379: PROCEDURE chk_currency_code
380: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
381: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
382: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
383: ,p_rate_id IN pay_grade_rules_f.rate_id%TYPE
384: ,p_effective_date IN DATE
385: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
378: --
379: PROCEDURE chk_currency_code
380: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
381: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
382: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
383: ,p_rate_id IN pay_grade_rules_f.rate_id%TYPE
384: ,p_effective_date IN DATE
385: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
386: --
379: PROCEDURE chk_currency_code
380: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
381: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
382: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
383: ,p_rate_id IN pay_grade_rules_f.rate_id%TYPE
384: ,p_effective_date IN DATE
385: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
386: --
387: l_proc VARCHAR2(72) := g_package||'chk_currency_code';
381: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
382: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
383: ,p_rate_id IN pay_grade_rules_f.rate_id%TYPE
384: ,p_effective_date IN DATE
385: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
386: --
387: l_proc VARCHAR2(72) := g_package||'chk_currency_code';
388: l_dummy_code fnd_currencies.currency_code%TYPE;
389: l_rate_uom pay_rates.rate_uom%TYPE;
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;
710: -- |----------------------< chk_assignment_rate_value >----------------------|
711: -- ---------------------------------------------------------------------------
712: --
713: PROCEDURE chk_assignment_rate_value
714: (p_value IN pay_grade_rules_f.value%TYPE) IS
715: --
716: l_proc VARCHAR2(72) := g_package||'chk_assignment_rate_value';
717: l_value NUMBER;
718: --
742: -- |-------------------------------< chk_value >-----------------------------|
743: -- ---------------------------------------------------------------------------
744: --
745: PROCEDURE chk_value
746: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
747: ,p_value IN pay_grade_rules_f.value%TYPE
748: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
749: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
750: ,p_effective_date IN DATE
743: -- ---------------------------------------------------------------------------
744: --
745: PROCEDURE chk_value
746: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
747: ,p_value IN pay_grade_rules_f.value%TYPE
748: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
749: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
750: ,p_effective_date IN DATE
751: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
744: --
745: PROCEDURE chk_value
746: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
747: ,p_value IN pay_grade_rules_f.value%TYPE
748: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
749: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
750: ,p_effective_date IN DATE
751: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
752: --
745: PROCEDURE chk_value
746: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
747: ,p_value IN pay_grade_rules_f.value%TYPE
748: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
749: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
750: ,p_effective_date IN DATE
751: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
752: --
753: l_proc VARCHAR2(72) := g_package||'chk_value';
747: ,p_value IN pay_grade_rules_f.value%TYPE
748: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
749: ,p_currency_code IN pay_grade_rules_f.currency_code%TYPE
750: ,p_effective_date IN DATE
751: ,p_object_version_number IN pay_grade_rules_f.object_version_number%TYPE) IS
752: --
753: l_proc VARCHAR2(72) := g_package||'chk_value';
754: l_value NUMBER;
755: --
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;
844: -- |-------------------------< chk_value_min_max_comb >-----------------------|
845: -- ---------------------------------------------------------------------------
846: --
847: PROCEDURE chk_value_min_max_comb
848: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
849: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
850: ,p_value IN pay_grade_rules_f.value%TYPE
851: ,p_minimum IN pay_grade_rules_f.minimum%TYPE
852: ,p_maximum IN pay_grade_rules_f.maximum%TYPE) IS
845: -- ---------------------------------------------------------------------------
846: --
847: PROCEDURE chk_value_min_max_comb
848: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
849: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
850: ,p_value IN pay_grade_rules_f.value%TYPE
851: ,p_minimum IN pay_grade_rules_f.minimum%TYPE
852: ,p_maximum IN pay_grade_rules_f.maximum%TYPE) IS
853: --
846: --
847: PROCEDURE chk_value_min_max_comb
848: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
849: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
850: ,p_value IN pay_grade_rules_f.value%TYPE
851: ,p_minimum IN pay_grade_rules_f.minimum%TYPE
852: ,p_maximum IN pay_grade_rules_f.maximum%TYPE) IS
853: --
854: l_proc VARCHAR2(72) := g_package||'chk_value_min_max_comb';
847: PROCEDURE chk_value_min_max_comb
848: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
849: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
850: ,p_value IN pay_grade_rules_f.value%TYPE
851: ,p_minimum IN pay_grade_rules_f.minimum%TYPE
852: ,p_maximum IN pay_grade_rules_f.maximum%TYPE) IS
853: --
854: l_proc VARCHAR2(72) := g_package||'chk_value_min_max_comb';
855: l_value NUMBER;
848: (p_rate_type IN pay_grade_rules_f.rate_type%TYPE
849: ,p_grade_rule_id IN pay_grade_rules_f.grade_rule_id%TYPE
850: ,p_value IN pay_grade_rules_f.value%TYPE
851: ,p_minimum IN pay_grade_rules_f.minimum%TYPE
852: ,p_maximum IN pay_grade_rules_f.maximum%TYPE) IS
853: --
854: l_proc VARCHAR2(72) := g_package||'chk_value_min_max_comb';
855: l_value NUMBER;
856: --
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;
922: --
923: cursor csr_sec_grp is
924: select pbg.security_group_id
925: from per_business_groups pbg
926: , pay_grade_rules_f pgr
927: where pgr.grade_rule_id = p_grade_rule_id
928: and pbg.business_group_id = pgr.business_group_id;
929: --
930: -- Declare local variables
986: --
987: cursor csr_leg_code is
988: select pbg.legislation_code
989: from per_business_groups pbg
990: , pay_grade_rules_f pgr
991: where pgr.grade_rule_id = p_grade_rule_id
992: and pbg.business_group_id = pgr.business_group_id;
993: --
994: -- Declare local variables