[Home] [Help]
7: * sy_uom_find
8: *
9: * Description
10: * This function is responsible for retrieving the um_type and
11: * standard factor from GEMMS given specific unit of measure
12: * code.
13: *
14: * Parameters
15: * V_uom UOM Code.
13: *
14: * Parameters
15: * V_uom UOM Code.
16: * V_um_type Value of UOM TYPE.
17: * V_std_factor Value of standard factor.
18: *
19: * Return Values
20: * 1 Success
21: * -1 Failure
87: * populates the global variable 'lab_type' which is needed
88: * for the select criteria in determining the conversion factor.
89: *
90: * This is because the lab module allows for different
91: * conversion factors based on density the standard item conversion
92: * table is not used here.
93: *
94: * Parameters
95: * none
156: * ERR_UOM_CODE_FACTOR = item-specific factors found == 0
157: * ERR_UOM_NOCUR = no "from" item-specific factor found
158: * ERR_UOM_NONEW = no "to" item-specific factor found
159: * ERR_UOM_NOINV = no "INV" item-specific factor found
160: * ERR_UOM_STD_FACTOR = standard factor found == 0
161: * ERR_UOMS_NOT_FOUND = type/factor not found
162: * ERR_UOM_ITEM_MST = Error fetching from ic_item_mst
163: * **************************************************************************/
164: ERR_UOM_UNKNOWN CONSTANT NUMBER := -3350;
211: V_new_qty := V_cur_qty;
212: Return(1);
213: END IF;
214: /* ========================================
215: Determine um_type and standard factor
216: for current uom.
217: ======================================== */
218: X_retvar := sy_uom_find (V_cur_uom, X_cur_um_type, X_cur_std_factor);
219: IF X_retvar <> 1 THEN
219: IF X_retvar <> 1 THEN
220: RETURN(ERR_UOM_NOCUR);
221: END IF;
222: /* ========================================
223: Determine um_type and standard factor
224: for new uom.
225: ======================================== */
226: X_retvar := sy_uom_find (V_new_uom, X_new_um_type, X_new_std_factor);
227: IF X_retvar <> 1 THEN
253: ELSE
254: X_inv_uom := V_inv_uom;
255: END IF;
256: /* =========================================
257: Get the um_type and standard factor for
258: the inventory uom.
259: ========================================= */
260: X_retvar := sy_uom_find (X_inv_uom, X_inv_um_type, X_inv_std_factor);
261: IF X_retvar <> 1 THEN