154: l_found BOOLEAN := FALSE;
155:
156: CURSOR uom_class_csr IS
157: SELECT disable_date
158: FROM mtl_uom_classes
159: WHERE uom_class = p_uom_class;
160: BEGIN
161: g_action := 'UOMClass validation';
162: IF p_uom_class IS NOT NULL THEN
288: RAISE FND_API.G_EXC_ERROR;
289: END get_base_uom;
290:
291: PROCEDURE delete_uom_class(
292: p_cls_rec IN mtl_uom_classes%ROWTYPE
293: ) IS
294: BEGIN
295: g_action := 'UOMClass parameter validation';
296: IF p_cls_rec.disable_date IS NULL THEN
297: ITG_MSG.null_disable_date;
298: RAISE FND_API.G_EXC_ERROR;
299: END IF;
300: g_action := 'UOMClass disable';
301: UPDATE mtl_uom_classes_tl
302: SET disable_date = p_cls_rec.disable_date,
303: last_update_date = p_cls_rec.last_update_date,
304: last_updated_by = p_cls_rec.last_updated_by,
305: --uom_class_tl = p_cls_rec.uom_class_tl, /*null update fails*/
313: END IF;
314: END delete_uom_class;
315:
316: PROCEDURE update_uom_class(
317: p_cls_rec IN mtl_uom_classes%ROWTYPE
318: ) IS
319: BEGIN
320: g_action := 'UOMClass update';
321: UPDATE mtl_uom_classes_tl
317: p_cls_rec IN mtl_uom_classes%ROWTYPE
318: ) IS
319: BEGIN
320: g_action := 'UOMClass update';
321: UPDATE mtl_uom_classes_tl
322: SET description = p_cls_rec.description,
323: disable_date = p_cls_rec.disable_date,
324: last_update_date = p_cls_rec.last_update_date,
325: last_updated_by = p_cls_rec.last_updated_by,
334: END IF;
335: END update_uom_class;
336:
337: PROCEDURE insert_uom_class(
338: p_cls_rec IN mtl_uom_classes%ROWTYPE
339: ) IS
340: BEGIN
341: g_action := 'UOMClass insert';
342: INSERT INTO mtl_uom_classes_tl (
338: p_cls_rec IN mtl_uom_classes%ROWTYPE
339: ) IS
340: BEGIN
341: g_action := 'UOMClass insert';
342: INSERT INTO mtl_uom_classes_tl (
343: uom_class,
344: uom_class_tl,
345: disable_date,
346: description,
363: FROM fnd_languages l
364: WHERE l.installed_flag IN ('I', 'B')
365: AND NOT EXISTS
366: (SELECT NULL
367: FROM mtl_uom_classes_tl t
368: WHERE t.uom_class = p_cls_rec.uom_class
369: AND t.language = l.language_code);
370: END insert_uom_class;
371:
602: p_dt_creation IN DATE,
603: p_dt_expiration IN DATE
604: ) IS
605: /* Working storage */
606: l_cls_rec mtl_uom_classes%ROWTYPE;
607: l_uom_rec mtl_units_of_measure%ROWTYPE;
608: l_con_rec mtl_uom_conversions%ROWTYPE;
609: l_ccv_rec mtl_uom_class_conversions%ROWTYPE;
610: l_param VARCHAR2(200);