PACKAGE BODY: APPS.WIP_COMMON_XMLP_PKG

Source

1 package body WIP_COMMON_XMLP_PKG As
2 /* $Header: WIPCOMMONB.pls 120.1 2008/01/31 12:08:50 npannamp noship $ */
3 
4 function get_precision(qty_precision in number) return VARCHAR2 is
5 begin
6 
7 if qty_precision = 0 then return('999G999G999G990');
8 
9 elsif qty_precision = 1 then return('999G999G999G990D0');
10 
11 elsif qty_precision = 3 then return('999G999G999G990D000');
12 
13 elsif qty_precision = 4 then return('999G999G999G990D0000');
14 
15 elsif qty_precision = 5 then return('999G999G999G990D00000');
16 
17 elsif qty_precision = 6 then  return('999G999G999G990D000000');
18 
19 else return('999G999G999G990D00');
20 
21 end if;
22 
23 end;
24 
25 end wip_common_xmlp_pkg;