299: -- -------------------------------------------------------------------------
300: -- {Start Of Comments}
301: --
302: -- Description:
303: -- Validates that the retro component id exists in pay_retro_components.
304: --
305: -- Prerequisites:
306: -- None.
307: --
343: -- Cursor to check that a retro component exists.
344: --
345: cursor csr_retro_component is
346: select null
347: from pay_retro_components
348: where retro_component_id = p_retro_component_id
349: and nvl(legislation_code, nvl(l_legislation_code, l_varchar2))
350: = nvl(l_legislation_code, l_varchar2);
351:
591: -- Declare local variables
592: --
593: l_proc varchar2(72) := g_package||'chk_reprocess_type';
594: l_api_updating boolean;
595: l_retro_type pay_retro_components.retro_type%type;
596:
597: cursor csr_retro_type
598: is
599: select retro_type
596:
597: cursor csr_retro_type
598: is
599: select retro_type
600: from pay_retro_components
601: where retro_component_id = p_retro_component_id;
602:
603: --
604: begin
879: -- Declare local variables
880: --
881: l_proc varchar2(72) := g_package||'chk_replace_run_flag';
882: l_api_updating boolean;
883: l_recalculation_style pay_retro_components.recalculation_style%type;
884: --
885: --
886: cursor csr_recalculation_style is
887: select recalculation_style
884: --
885: --
886: cursor csr_recalculation_style is
887: select recalculation_style
888: from pay_retro_components
889: where retro_component_id = p_retro_component_id;
890: --
891: --
892: begin
1004: -- Declare local variables
1005: --
1006: l_proc varchar2(72) := g_package||'chk_use_override_dates';
1007: l_api_updating boolean;
1008: l_recalculation_style pay_retro_components.recalculation_style%type;
1009: --
1010: --
1011: cursor csr_recalculation_style is
1012: select recalculation_style
1009: --
1010: --
1011: cursor csr_recalculation_style is
1012: select recalculation_style
1013: from pay_retro_components
1014: where retro_component_id = p_retro_component_id;
1015: --
1016: --
1017: begin