46: p_element_type_id IN Number default -1,
47: p_retro_component_id IN OUT NOCOPY Number)
48:
49: is
50: cursor c_standard_component(cp_element_type_id in number)
51: is
52: select prc.retro_component_id
53: from
54: pay_retro_components prc,
103: Open c_retro_method(l_business_group_id);
104: Fetch c_retro_method into l_retro_method;
105: Close c_retro_method;
106:
107: if (l_retro_method ='Y') /* or if the BG wants to override the replacement method to standard*/
108: then
109:
110: OPEN c_standard_component(p_element_type_id);
111: FETCH c_standard_component into p_retro_component_id;
106:
107: if (l_retro_method ='Y') /* or if the BG wants to override the replacement method to standard*/
108: then
109:
110: OPEN c_standard_component(p_element_type_id);
111: FETCH c_standard_component into p_retro_component_id;
112: CLOSE c_standard_component;
113:
114: Else
107: if (l_retro_method ='Y') /* or if the BG wants to override the replacement method to standard*/
108: then
109:
110: OPEN c_standard_component(p_element_type_id);
111: FETCH c_standard_component into p_retro_component_id;
112: CLOSE c_standard_component;
113:
114: Else
115:
108: then
109:
110: OPEN c_standard_component(p_element_type_id);
111: FETCH c_standard_component into p_retro_component_id;
112: CLOSE c_standard_component;
113:
114: Else
115:
116: OPEN c_replacement_component(p_element_type_id);