434: begin
435: if pay_puc_bus.g_formula_type_id is null then
436: select fft.formula_type_id
437: into pay_puc_bus.g_formula_type_id 438: from ff_formula_types fft 439: where formula_type_name = pay_puc_bus.g_formula_type_name
440: ;
441: end if;
442: end set_formula_type_id;