100:
101: BEGIN
102: SELECT 'Y'
103: INTO l_currency
104: FROM mtl_units_of_measure meas
105: WHERE meas.uom_code = l_uom
106: AND meas.uom_class = 'Currency';
107: EXCEPTION WHEN NO_DATA_FOUND THEN
108: l_currency := 'N';