PACKAGE BODY: APPS.FND_CODE_PKG

Source

1 package body FND_CODE_PKG as
2 /* $Header: AFCPCODB.pls 115.1 99/07/16 23:09:39 porting sh $ */
3   function BASE64(VAL in number, NDIGITS in number)
4     return varchar2
5   is
6     STR64    varchar2(64);
7     SRESULT  varchar2(2000);
8     LCOUNT   binary_integer;
9     A1       number;
10     A2       number;
11   begin
12 
13     STR64 :='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
14 
15     SRESULT := '';
16     A1 := VAL;
17 
18     for LCOUNT in 1..NDIGITS loop
19       A2 := mod(A1,64);
20       A1 := (A1 - A2)/64;
21       SRESULT := substr(STR64,A2,1)||SRESULT;
22     end loop;
23 
24     return(SRESULT);
25   end BASE64;
26 
27 end FND_CODE_PKG;