PACKAGE BODY: APPS.OE_TEMP_ADD_ZERO

Source

1 PACKAGE BODY  OE_TEMP_ADD_ZERO as
2 /* $Header: OEXUPSTB.pls 120.0 2005/10/19 14:24:15 spagadal noship $ */
3 --
4 -- Package
5 --   OE_TEMP_ADD_ZERO
6 -- Purpose
7 --  New package for running script oeupstl.sql
8 
9 -- History
10 --   04-FEB-99	WSWANG	Created
11 
12 FUNCTION oe_add_zero ( in_string in VARCHAR2) return VARCHAR2
13 is
14   l_out_string varchar2(240) := null;
15   i number := 0;
16   l_upper_boundary number := 0;
17 begin
18   l_upper_boundary := length(in_string)/3;
19 
20   for i in 1..l_upper_boundary loop
21     l_out_string := l_out_string || '0' || substr(in_string, 3*i-2, 3);
22   end loop;
23 
24   return(l_out_string);
25 end oe_add_zero;
26 END OE_TEMP_ADD_ZERO;