PACKAGE BODY: APPS.FND_CONST

Source

1 package body fnd_const as
2   /* $Header: AFSCCONB.pls 120.0.12000000.1 2007/01/18 13:25:53 appldev ship $ */
3 
4   --
5   -- local_chr
6   --   Return specified character in current codeset
7   -- IN
8   --   ascii_chr - chr number in US7ASCII
9   --
10   function local_chr(ascii_chr in number) return varchar2 is
11     lang varchar2(255);
12   begin
13     lang := userenv('LANGUAGE');
14     return(convert(chr(ascii_chr),
15                    substr(lang, instr(lang,'.') + 1), 'US7ASCII'));
16   end local_chr;
17 
18   function NEWLINE return varchar2 is begin return(local_chr(10)); end;
19   function TAB return varchar2 is begin return(local_chr(9)); end;
20 
21   function BOOL(v boolean default true) return varchar2 is begin
22     if v then return 'true'; else return 'false'; end if; end;
23 
24   function BOOL(v varchar2 default 'true') return boolean is begin
25     if lower(v) in ('t','true','y','yes') then return true;
26     else return false; end if; end;
27 
28   function BOOL(v number default 1) return boolean is begin
29     if v = 1 then return true; else return false; end if; end;
30 
31 end fnd_const;