PACKAGE BODY: APPS.POR_CS_UOM_CONVERSION_S

Source

1 package body por_cs_uom_conversion_s as
2 /* $Header: ICXCDXUB.pls 115.1 2003/01/21 20:26:53 sbgeorge noship $*/
3 
4 procedure get_oracle_uom(p_requisite_uom in varchar2,
5                          p_oracle_uom    out NOCOPY varchar2) is
6   l_return_status varchar2(30);
7   l_msg_count number;
8   l_msg_data varchar2(240);
9   l_oracle_uom varchar(80);
10 begin
11 
12   ec_code_conversion_pvt.convert_from_ext_to_int(
13     p_api_version_number=>'1.0',
14     p_return_status=>l_return_status,
15     p_msg_count=>l_msg_count,
16     p_msg_data=>l_msg_data,
17     p_category=>'UOM',
18     p_key1=>'REQUISITE',
19     p_ext_val1=>p_requisite_uom,
20     p_int_val=>p_oracle_uom);
21 
22   if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
23     p_oracle_uom := p_requisite_uom;
24   end if;
25 
26 exception
27   when others then
28     p_oracle_uom := p_requisite_uom;
29 end get_oracle_uom;
30 
31 procedure get_applsys_schema(p_schema out NOCOPY varchar2) is
32 l_install boolean;
33 l_out_status varchar2(2000);
34 l_out_industry varchar2(2000);
35 l_out_schema varchar2(2000);
36 begin
37   l_install := fnd_installation.get_app_info('FND', l_out_status,
38                l_out_industry, l_out_schema);
39   p_schema := l_out_schema;
40 exception
41   when others then
42     null;
43 end get_applsys_schema;
44 
45 end por_cs_uom_conversion_s;