1811: );
1812: /* cursor is used to get retro component info for AU legislation. */
1813: cursor c_retro_info(cp_legislation_code in varchar2) is
1814: select retro_component_id, pts.time_span_id, ptd.short_name, ptd2.short_name
1815: from pay_retro_components prc,
1816: pay_time_spans pts,
1817: pay_time_definitions ptd,
1818: pay_time_definitions ptd2
1819: where pts.creator_id = prc.retro_component_id
1827: CURSOR c_get_retro_components
1828: IS
1829: select count(*)
1830: from pay_retro_component_usages prcu,
1831: pay_retro_components prc
1832: where prc.legislation_code = 'AU'
1833: and prc.retro_component_id = prcu.retro_component_id
1834: AND prcu.creator_id = p_element_type_id
1835: order by prcu.creator_id;
2413: -- then the details will be updated.
2414: -- else a new retro component will be created.
2415: --------------------------------------------------------------------------
2416: FUNCTION create_retro_components
2417: (p_short_name in pay_retro_components.short_name%TYPE
2418: ,p_component_name in pay_retro_components.component_name%TYPE
2419: ,p_retro_type in pay_retro_components.retro_type%TYPE
2420: ,p_recalc_style in pay_retro_components.recalculation_style%TYPE
2421: ,p_date_override_proc in pay_retro_components.date_override_procedure%TYPE
2414: -- else a new retro component will be created.
2415: --------------------------------------------------------------------------
2416: FUNCTION create_retro_components
2417: (p_short_name in pay_retro_components.short_name%TYPE
2418: ,p_component_name in pay_retro_components.component_name%TYPE
2419: ,p_retro_type in pay_retro_components.retro_type%TYPE
2420: ,p_recalc_style in pay_retro_components.recalculation_style%TYPE
2421: ,p_date_override_proc in pay_retro_components.date_override_procedure%TYPE
2422: )
2415: --------------------------------------------------------------------------
2416: FUNCTION create_retro_components
2417: (p_short_name in pay_retro_components.short_name%TYPE
2418: ,p_component_name in pay_retro_components.component_name%TYPE
2419: ,p_retro_type in pay_retro_components.retro_type%TYPE
2420: ,p_recalc_style in pay_retro_components.recalculation_style%TYPE
2421: ,p_date_override_proc in pay_retro_components.date_override_procedure%TYPE
2422: )
2423: RETURN NUMBER
2416: FUNCTION create_retro_components
2417: (p_short_name in pay_retro_components.short_name%TYPE
2418: ,p_component_name in pay_retro_components.component_name%TYPE
2419: ,p_retro_type in pay_retro_components.retro_type%TYPE
2420: ,p_recalc_style in pay_retro_components.recalculation_style%TYPE
2421: ,p_date_override_proc in pay_retro_components.date_override_procedure%TYPE
2422: )
2423: RETURN NUMBER
2424: IS
2417: (p_short_name in pay_retro_components.short_name%TYPE
2418: ,p_component_name in pay_retro_components.component_name%TYPE
2419: ,p_retro_type in pay_retro_components.retro_type%TYPE
2420: ,p_recalc_style in pay_retro_components.recalculation_style%TYPE
2421: ,p_date_override_proc in pay_retro_components.date_override_procedure%TYPE
2422: )
2423: RETURN NUMBER
2424: IS
2425: --
2422: )
2423: RETURN NUMBER
2424: IS
2425: --
2426: l_retro_component_id pay_retro_components.retro_component_id%TYPE;
2427: --
2428: CURSOR csr_component_exists
2429: IS
2430: SELECT retro_component_id
2427: --
2428: CURSOR csr_component_exists
2429: IS
2430: SELECT retro_component_id
2431: FROM pay_retro_components
2432: WHERE short_name = p_short_name
2433: AND legislation_code = g_legislation_code;
2434: --
2435: CURSOR csr_get_comp_id
2433: AND legislation_code = g_legislation_code;
2434: --
2435: CURSOR csr_get_comp_id
2436: IS
2437: SELECT pay_retro_components_s.nextval
2438: FROM dual;
2439: --
2440: BEGIN
2441: --
2448: OPEN csr_get_comp_id;
2449: FETCH csr_get_comp_id INTO l_retro_component_id;
2450: CLOSE csr_get_comp_id;
2451: --
2452: INSERT INTO pay_retro_components
2453: (retro_component_id
2454: ,short_name
2455: ,component_name
2456: ,retro_type
2467: ,p_date_override_proc);
2468: --
2469: ELSE
2470: --
2471: UPDATE pay_retro_components
2472: SET component_name = p_component_name
2473: , retro_type = p_retro_type
2474: , recalculation_style = p_recalc_style
2475: , date_override_procedure = p_date_override_proc
2718: -- then the details will not be updated.
2719: --------------------------------------------------------------------------
2720: PROCEDURE create_element_spans
2721: (p_retro_component_usage_id IN pay_retro_component_usages.retro_component_usage_id%TYPE
2722: ,p_retro_component_id IN pay_retro_components.retro_component_id%TYPE
2723: ,p_retro_element_name IN pay_element_types_f.element_name%TYPE
2724: ,p_time_span_id IN pay_element_span_usages.time_span_id%TYPE
2725: )
2726: IS
2802: )
2803: IS
2804: --
2805: l_retro_component_usage_id pay_retro_component_usages.retro_component_usage_id%TYPE;
2806: l_retro_component_id pay_retro_components.retro_component_id%TYPE;
2807: l_element_type_id pay_element_types_f.element_type_id%TYPE;
2808: --
2809: CURSOR csr_get_details IS
2810: SELECT c.retro_component_id
2808: --
2809: CURSOR csr_get_details IS
2810: SELECT c.retro_component_id
2811: , e.element_type_id
2812: FROM pay_retro_components c
2813: , pay_element_types_f e
2814: WHERE c.component_name = p_component_name
2815: AND e.element_name = p_creator_name
2816: AND e.legislation_code = g_legislation_code
2936: PROCEDURE create_enhanced_retro_defn
2937: IS
2938:
2939: l_retro_defn_id pay_retro_definitions.retro_definition_id%TYPE;
2940: l_corr_up_comp pay_retro_components.retro_component_id%TYPE;
2941: l_back_up_comp pay_retro_components.retro_component_id%TYPE;
2942: l_db_lumpsum_comp pay_retro_components.retro_component_id%TYPE;
2943: l_defn_comp_id pay_retro_defn_components.definition_component_id%TYPE;
2944: l_start_time_id pay_time_definitions.time_definition_id%TYPE;
2937: IS
2938:
2939: l_retro_defn_id pay_retro_definitions.retro_definition_id%TYPE;
2940: l_corr_up_comp pay_retro_components.retro_component_id%TYPE;
2941: l_back_up_comp pay_retro_components.retro_component_id%TYPE;
2942: l_db_lumpsum_comp pay_retro_components.retro_component_id%TYPE;
2943: l_defn_comp_id pay_retro_defn_components.definition_component_id%TYPE;
2944: l_start_time_id pay_time_definitions.time_definition_id%TYPE;
2945: l_end_time_id pay_time_definitions.time_definition_id%TYPE;
2938:
2939: l_retro_defn_id pay_retro_definitions.retro_definition_id%TYPE;
2940: l_corr_up_comp pay_retro_components.retro_component_id%TYPE;
2941: l_back_up_comp pay_retro_components.retro_component_id%TYPE;
2942: l_db_lumpsum_comp pay_retro_components.retro_component_id%TYPE;
2943: l_defn_comp_id pay_retro_defn_components.definition_component_id%TYPE;
2944: l_start_time_id pay_time_definitions.time_definition_id%TYPE;
2945: l_end_time_id pay_time_definitions.time_definition_id%TYPE;
2946: l_time_span_id pay_time_spans.time_span_id%TYPE;