PACKAGE BODY: APPS.GMF_MTL_GET_UOM

Source

1 PACKAGE BODY GMF_MTL_GET_UOM AS
2 /* $Header: gmfgtumb.pls 115.2 2002/10/29 22:07:28 jdiiorio ship $ */
3 /** MC BUG# 1554483 **/
4 /* don't select unit_of_measure in select since because of uom changes
5 uomname is now um_code and selecting in the select would change um_code
6 to unit_of_measure which is wrong**/
7 /** add sy_uoms_mst in the from clause **/
8   PROCEDURE MTL_GET_UOM (
9         uomcode in out nocopy varchar2,
10         uomname in out nocopy varchar2,
11         descr out nocopy varchar2,
12         error_status out nocopy number) AS
13   BEGIN
14         select  --unit_of_measure,
15                 b.uom_code,
16                 b.description
17         into
18                 --uomname,
19                 uomcode,
20                 descr
21         from sy_uoms_mst a, mtl_units_of_measure b
22         where a.um_code = uomname
23         and   a.unit_of_measure = b.unit_of_measure;
24   EXCEPTION
25     when no_data_found then
26     /* This tells calling routing that no more data */
27          error_status := 100;
28      when others then
29          error_status := SQLCODE;
30   END MTL_GET_UOM;
31 END GMF_MTL_GET_UOM;