1944: PROCEDURE validate_uom
1945: (
1946: x_return_status OUT NOCOPY VARCHAR2,
1947: x_msg_data OUT NOCOPY VARCHAR2,
1948: p_uom IN MTL_UNITS_OF_MEASURE_VL.unit_of_measure%TYPE,
1949: p_x_uom_code IN OUT NOCOPY MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE
1950: )
1951: IS
1952:
1945: (
1946: x_return_status OUT NOCOPY VARCHAR2,
1947: x_msg_data OUT NOCOPY VARCHAR2,
1948: p_uom IN MTL_UNITS_OF_MEASURE_VL.unit_of_measure%TYPE,
1949: p_x_uom_code IN OUT NOCOPY MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE
1950: )
1951: IS
1952:
1953: l_uom_code MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE;
1949: p_x_uom_code IN OUT NOCOPY MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE
1950: )
1951: IS
1952:
1953: l_uom_code MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE;
1954:
1955: CURSOR get_rec_from_value ( c_uom MTL_UNITS_OF_MEASURE_VL.unit_of_measure%TYPE )
1956: IS
1957: SELECT DISTINCT uom_code
1951: IS
1952:
1953: l_uom_code MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE;
1954:
1955: CURSOR get_rec_from_value ( c_uom MTL_UNITS_OF_MEASURE_VL.unit_of_measure%TYPE )
1956: IS
1957: SELECT DISTINCT uom_code
1958: FROM MTL_UNITS_OF_MEASURE_VL
1959: WHERE upper(unit_of_measure) = upper(c_uom);
1954:
1955: CURSOR get_rec_from_value ( c_uom MTL_UNITS_OF_MEASURE_VL.unit_of_measure%TYPE )
1956: IS
1957: SELECT DISTINCT uom_code
1958: FROM MTL_UNITS_OF_MEASURE_VL
1959: WHERE upper(unit_of_measure) = upper(c_uom);
1960:
1961: CURSOR get_rec_from_id ( c_uom_code MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE )
1962: IS
1957: SELECT DISTINCT uom_code
1958: FROM MTL_UNITS_OF_MEASURE_VL
1959: WHERE upper(unit_of_measure) = upper(c_uom);
1960:
1961: CURSOR get_rec_from_id ( c_uom_code MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE )
1962: IS
1963: SELECT DISTINCT uom_code
1964: FROM MTL_UNITS_OF_MEASURE_VL
1965: WHERE upper(uom_code) = upper(c_uom_code);
1960:
1961: CURSOR get_rec_from_id ( c_uom_code MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE )
1962: IS
1963: SELECT DISTINCT uom_code
1964: FROM MTL_UNITS_OF_MEASURE_VL
1965: WHERE upper(uom_code) = upper(c_uom_code);
1966:
1967: BEGIN
1968: x_return_status := FND_API.G_RET_STS_SUCCESS;
2038: x_msg_data OUT NOCOPY VARCHAR2,
2039: p_item_group_id IN AHL_ITEM_GROUPS_VL.item_group_id%TYPE,
2040: p_inventory_item_id IN MTL_SYSTEM_ITEMS.inventory_item_id%TYPE,
2041: p_inventory_org_id IN MTL_SYSTEM_ITEMS.organization_id%TYPE,
2042: p_uom_code IN MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE
2043: )
2044: IS
2045:
2046: l_dummy VARCHAR2(1);
2044: IS
2045:
2046: l_dummy VARCHAR2(1);
2047:
2048: CURSOR get_uom_for_item ( c_uom_code MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE,
2049: c_inventory_item_id MTL_SYSTEM_ITEMS.inventory_item_id%TYPE,
2050: c_inventory_org_id MTL_SYSTEM_ITEMS.organization_id%TYPE )
2051: IS
2052: SELECT 'X'
2054: WHERE uom_code = c_uom_code
2055: AND inventory_item_id = c_inventory_item_id
2056: AND inventory_org_id = c_inventory_org_id;
2057:
2058: CURSOR get_uom_for_item_group ( c_uom_code MTL_UNITS_OF_MEASURE_VL.uom_code%TYPE,
2059: c_item_group_id AHL_ITEM_GROUPS_VL.item_group_id%TYPE )
2060: IS
2061: SELECT 'X'
2062: FROM AHL_ITEM_CLASS_UOM_V UOM, AHL_ITEM_ASSOCIATIONS_B ASSOC