27: cursor csr_sec_grp is
28: select pbg.security_group_id,
29: pbg.legislation_code
30: from per_business_groups_perf pbg
31: , pay_element_span_usages esu
32: where esu.element_span_usage_id = p_element_span_usage_id
33: and pbg.business_group_id (+) = esu.business_group_id;
34: --
35: -- Declare local variables
97: --
98: cursor csr_leg_code is
99: select pbg.legislation_code
100: from per_business_groups_perf pbg
101: , pay_element_span_usages esu
102: where esu.element_span_usage_id = p_element_span_usage_id
103: and pbg.business_group_id (+) = esu.business_group_id;
104: --
105: -- Declare local variables
319: --
320: -- {End Of Comments}
321: --
322: procedure chk_retro_component_usage_id
323: (p_retro_component_usage_id in pay_element_span_usages.time_span_id%type
324: ,p_business_group_id in pay_element_span_usages.business_group_id%type
325: ,p_legislation_code in pay_element_span_usages.legislation_code%type
326: )
327: is
320: -- {End Of Comments}
321: --
322: procedure chk_retro_component_usage_id
323: (p_retro_component_usage_id in pay_element_span_usages.time_span_id%type
324: ,p_business_group_id in pay_element_span_usages.business_group_id%type
325: ,p_legislation_code in pay_element_span_usages.legislation_code%type
326: )
327: is
328: --
321: --
322: procedure chk_retro_component_usage_id
323: (p_retro_component_usage_id in pay_element_span_usages.time_span_id%type
324: ,p_business_group_id in pay_element_span_usages.business_group_id%type
325: ,p_legislation_code in pay_element_span_usages.legislation_code%type
326: )
327: is
328: --
329: -- Declare local variables
331: l_proc varchar2(72) := g_package||'chk_retro_component_usage_id';
332: l_varchar2 varchar2(30) := hr_api.g_varchar2;
333: l_number number := hr_api.g_number;
334: l_exists varchar2(1);
335: l_legislation_code pay_element_span_usages.legislation_code%type;
336:
337: --
338: -- Cursor to check that a retro component exists.
339: --
410: --
411: -- {End Of Comments}
412: --
413: procedure chk_time_span_id
414: (p_time_span_id in pay_element_span_usages.time_span_id%type
415: ,p_retro_component_usage_id in pay_element_span_usages.retro_component_usage_id%type
416: )
417: is
418: --
411: -- {End Of Comments}
412: --
413: procedure chk_time_span_id
414: (p_time_span_id in pay_element_span_usages.time_span_id%type
415: ,p_retro_component_usage_id in pay_element_span_usages.retro_component_usage_id%type
416: )
417: is
418: --
419: -- Declare local variables
501: --
502: -- {End Of Comments}
503: --
504: procedure chk_adjustment_type
505: (p_element_span_usage_id in pay_element_span_usages.retro_component_usage_id%type
506: ,p_adjustment_type in pay_element_span_usages.adjustment_type%type
507: ,p_object_version_number in pay_element_span_usages.object_version_number%type
508: ,p_effective_date in date
509: )
502: -- {End Of Comments}
503: --
504: procedure chk_adjustment_type
505: (p_element_span_usage_id in pay_element_span_usages.retro_component_usage_id%type
506: ,p_adjustment_type in pay_element_span_usages.adjustment_type%type
507: ,p_object_version_number in pay_element_span_usages.object_version_number%type
508: ,p_effective_date in date
509: )
510: is
503: --
504: procedure chk_adjustment_type
505: (p_element_span_usage_id in pay_element_span_usages.retro_component_usage_id%type
506: ,p_adjustment_type in pay_element_span_usages.adjustment_type%type
507: ,p_object_version_number in pay_element_span_usages.object_version_number%type
508: ,p_effective_date in date
509: )
510: is
511: --
607: --
608: -- {End Of Comments}
609: --
610: procedure chk_retro_element_type_id
611: (p_element_span_usage_id in pay_element_span_usages.retro_component_usage_id%type
612: ,p_retro_element_type_id in pay_element_span_usages.retro_element_type_id%type
613: ,p_business_group_id in pay_element_span_usages.business_group_id%type
614: ,p_legislation_code in pay_element_span_usages.legislation_code%type
615: ,p_object_version_number in pay_element_span_usages.object_version_number%type
608: -- {End Of Comments}
609: --
610: procedure chk_retro_element_type_id
611: (p_element_span_usage_id in pay_element_span_usages.retro_component_usage_id%type
612: ,p_retro_element_type_id in pay_element_span_usages.retro_element_type_id%type
613: ,p_business_group_id in pay_element_span_usages.business_group_id%type
614: ,p_legislation_code in pay_element_span_usages.legislation_code%type
615: ,p_object_version_number in pay_element_span_usages.object_version_number%type
616: ,p_effective_date in date
609: --
610: procedure chk_retro_element_type_id
611: (p_element_span_usage_id in pay_element_span_usages.retro_component_usage_id%type
612: ,p_retro_element_type_id in pay_element_span_usages.retro_element_type_id%type
613: ,p_business_group_id in pay_element_span_usages.business_group_id%type
614: ,p_legislation_code in pay_element_span_usages.legislation_code%type
615: ,p_object_version_number in pay_element_span_usages.object_version_number%type
616: ,p_effective_date in date
617: )
610: procedure chk_retro_element_type_id
611: (p_element_span_usage_id in pay_element_span_usages.retro_component_usage_id%type
612: ,p_retro_element_type_id in pay_element_span_usages.retro_element_type_id%type
613: ,p_business_group_id in pay_element_span_usages.business_group_id%type
614: ,p_legislation_code in pay_element_span_usages.legislation_code%type
615: ,p_object_version_number in pay_element_span_usages.object_version_number%type
616: ,p_effective_date in date
617: )
618: is
611: (p_element_span_usage_id in pay_element_span_usages.retro_component_usage_id%type
612: ,p_retro_element_type_id in pay_element_span_usages.retro_element_type_id%type
613: ,p_business_group_id in pay_element_span_usages.business_group_id%type
614: ,p_legislation_code in pay_element_span_usages.legislation_code%type
615: ,p_object_version_number in pay_element_span_usages.object_version_number%type
616: ,p_effective_date in date
617: )
618: is
619: --
623: l_varchar2 varchar2(30) := hr_api.g_varchar2;
624: l_number number := hr_api.g_number;
625: l_exists varchar2(1);
626: l_api_updating boolean;
627: l_legislation_code pay_element_span_usages.legislation_code%type;
628:
629: --
630: -- Cursor to check that a retro component exists.
631: --