87: END IF;
88: x_return_status := 'S';
89: --Begin bug#5208170 schekuri 29-May-2006
90: open c_currency;
91: fetch c_currency into IEX_COLL_IND.g_curr_rec.base_currency,
92: IEX_COLL_IND.g_curr_rec.base_precision,
93: IEX_COLL_IND.g_curr_rec.base_min_acc_unit,
94: IEX_COLL_IND.g_curr_rec.past_year_from,
95: IEX_COLL_IND.g_curr_rec.past_year_to;
88: x_return_status := 'S';
89: --Begin bug#5208170 schekuri 29-May-2006
90: open c_currency;
91: fetch c_currency into IEX_COLL_IND.g_curr_rec.base_currency,
92: IEX_COLL_IND.g_curr_rec.base_precision,
93: IEX_COLL_IND.g_curr_rec.base_min_acc_unit,
94: IEX_COLL_IND.g_curr_rec.past_year_from,
95: IEX_COLL_IND.g_curr_rec.past_year_to;
96: close c_currency;
89: --Begin bug#5208170 schekuri 29-May-2006
90: open c_currency;
91: fetch c_currency into IEX_COLL_IND.g_curr_rec.base_currency,
92: IEX_COLL_IND.g_curr_rec.base_precision,
93: IEX_COLL_IND.g_curr_rec.base_min_acc_unit,
94: IEX_COLL_IND.g_curr_rec.past_year_from,
95: IEX_COLL_IND.g_curr_rec.past_year_to;
96: close c_currency;
97: --End bug#5208170 schekuri 29-May-2006
90: open c_currency;
91: fetch c_currency into IEX_COLL_IND.g_curr_rec.base_currency,
92: IEX_COLL_IND.g_curr_rec.base_precision,
93: IEX_COLL_IND.g_curr_rec.base_min_acc_unit,
94: IEX_COLL_IND.g_curr_rec.past_year_from,
95: IEX_COLL_IND.g_curr_rec.past_year_to;
96: close c_currency;
97: --End bug#5208170 schekuri 29-May-2006
98:
91: fetch c_currency into IEX_COLL_IND.g_curr_rec.base_currency,
92: IEX_COLL_IND.g_curr_rec.base_precision,
93: IEX_COLL_IND.g_curr_rec.base_min_acc_unit,
94: IEX_COLL_IND.g_curr_rec.past_year_from,
95: IEX_COLL_IND.g_curr_rec.past_year_to;
96: close c_currency;
97: --End bug#5208170 schekuri 29-May-2006
98:
99:
299: CLOSE c_rating;
300: --Begin bug#5208170 schekuri 29-May-2006
301: BEGIN
302: l_current_value_num := TO_NUMBER(x_metric_value_tbl(l_current_row),
303: fnd_currency.get_format_mask(iex_coll_ind.g_curr_rec.base_currency, 30));
304: -- Begin fix bug #5360519-JYPARK-07/06/2006-if value is negative and non-amount format, getting number value
305: EXCEPTION
306: WHEN OTHERS THEN
307: l_current_value_num := x_metric_value_tbl(l_current_row);